home *** CD-ROM | disk | FTP | other *** search
/ Virtual Harem / Virtual Harem.iso / mac / Virtual Harem / Virtual Harem.rsrc / VWFI_1024 < prev    next >
Unknown  |  1994-08-02  |  28.8 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID Adobe PhotoShop Brush default (weak)
100% lsar LZMA_Alone default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 ec 02 e4 | 00 00 00 00 00 00 00 40 |........|.......@|
|00000010| 00 07 00 00 00 00 00 00 | 72 b7 00 00 72 dc 00 00 |........|r...r...|
|00000020| 73 01 00 00 73 01 00 00 | 73 03 00 00 73 03 00 00 |s...s...|s...s...|
|00000030| 73 03 2d 2d 20 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |s.-- ___|________|
|00000040| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000050| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000060| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000070| 5f 5f 5f 5f 5f 0d 2d 2d | 20 7c 20 20 20 20 20 20 |_____.--| | |
|00000080| 20 20 20 20 20 20 20 20 | 20 43 6f 64 65 20 66 6f | | Code fo|
|00000090| 72 20 53 65 74 20 55 70 | 20 2d 20 53 65 74 20 56 |r Set Up| - Set V|
|000000a0| 61 72 69 61 62 6c 65 73 | 20 20 20 20 20 20 20 20 |ariables| |
|000000b0| 20 20 20 20 20 20 20 20 | 7c 0d 2d 2d 20 2d 2d 2d | ||.-- ---|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 6f 6e |--------|-----.on|
|00000100| 20 53 65 74 55 70 0d 20 | 20 67 6c 6f 62 61 6c 20 | SetUp. | global |
|00000110| 43 61 72 64 2c 20 52 6f | 6f 6d 2c 20 4c 6f 63 61 |Card, Ro|om, Loca|
|00000120| 74 69 6f 6e 2c 20 44 69 | 72 65 63 74 69 6f 6e 2c |tion, Di|rection,|
|00000130| 20 4d 6f 76 65 6d 65 6e | 74 2c 20 6d 53 74 61 72 | Movemen|t, mStar|
|00000140| 74 2c 20 6d 45 6e 64 2c | 20 c2 0d 4d 65 74 65 72 |t, mEnd,| ..Meter|
|00000150| 4c 65 76 65 6c 2c 20 52 | 6f 74 53 74 61 74 65 2c |Level, R|otState,|
|00000160| 20 41 63 63 65 73 73 2c | 20 50 6f 73 69 74 69 6f | Access,| Positio|
|00000170| 6e 2c 20 4e 6f 50 6c 61 | 79 2c 20 62 65 65 6e 54 |n, NoPla|y, beenT|
|00000180| 68 65 72 65 2c 20 53 68 | 65 65 70 0d 20 20 70 75 |here, Sh|eep. pu|
|00000190| 74 20 31 20 69 6e 74 6f | 20 43 61 72 64 0d 20 20 |t 1 into| Card. |
|000001a0| 70 75 74 20 30 20 69 6e | 74 6f 20 41 63 63 65 73 |put 0 in|to Acces|
|000001b0| 73 0d 20 20 70 75 74 20 | 31 20 69 6e 74 6f 20 50 |s. put |1 into P|
|000001c0| 6f 73 69 74 69 6f 6e 0d | 20 20 70 75 74 20 30 20 |osition.| put 0 |
|000001d0| 69 6e 74 6f 20 4e 6f 50 | 6c 61 79 0d 20 20 70 75 |into NoP|lay. pu|
|000001e0| 74 20 30 20 69 6e 74 6f | 20 62 65 65 6e 54 68 65 |t 0 into| beenThe|
|000001f0| 72 65 0d 20 20 70 75 74 | 20 30 20 69 6e 74 6f 20 |re. put| 0 into |
|00000200| 52 6f 6f 6d 0d 20 20 70 | 75 74 20 30 20 69 6e 74 |Room. p|ut 0 int|
|00000210| 6f 20 4c 6f 63 61 74 69 | 6f 6e 0d 20 20 70 75 74 |o Locati|on. put|
|00000220| 20 31 20 69 6e 74 6f 20 | 52 6f 74 53 74 61 74 65 | 1 into |RotState|
|00000230| 0d 20 20 70 75 74 20 30 | 20 69 6e 74 6f 20 44 69 |. put 0| into Di|
|00000240| 72 65 63 74 69 6f 6e 0d | 20 20 70 75 74 20 31 20 |rection.| put 1 |
|00000250| 69 6e 74 6f 20 53 68 65 | 65 70 0d 20 20 70 75 74 |into She|ep. put|
|00000260| 20 30 20 69 6e 74 6f 20 | 4d 6f 76 65 6d 65 6e 74 | 0 into |Movement|
|00000270| 0d 65 6e 64 20 53 65 74 | 55 70 0d 0d 6f 6e 20 72 |.end Set|Up..on r|
|00000280| 65 73 65 74 0d 20 20 53 | 65 74 20 74 68 65 20 70 |eset. S|et the p|
|00000290| 69 63 74 75 72 65 20 6f | 66 20 63 61 73 74 20 41 |icture o|f cast A|
|000002a0| 33 31 20 74 6f 20 74 68 | 65 20 70 69 63 74 75 72 |31 to th|e pictur|
|000002b0| 65 20 6f 66 20 63 61 73 | 74 20 41 33 32 0d 20 20 |e of cas|t A32. |
|000002c0| 53 65 74 20 74 68 65 20 | 70 69 63 74 75 72 65 20 |Set the |picture |
|000002d0| 6f 66 20 63 61 73 74 20 | 42 33 31 20 74 6f 20 74 |of cast |B31 to t|
|000002e0| 68 65 20 70 69 63 74 75 | 72 65 20 6f 66 20 63 61 |he pictu|re of ca|
|000002f0| 73 74 20 42 32 36 0d 20 | 20 53 65 74 20 74 68 65 |st B26. | Set the|
|00000300| 20 70 69 63 74 75 72 65 | 20 6f 66 20 63 61 73 74 | picture| of cast|
|00000310| 20 41 34 31 20 74 6f 20 | 74 68 65 20 70 69 63 74 | A41 to |the pict|
|00000320| 75 72 65 20 6f 66 20 63 | 61 73 74 20 45 33 31 0d |ure of c|ast E31.|
|00000330| 20 20 53 65 74 20 74 68 | 65 20 70 69 63 74 75 72 | Set th|e pictur|
|00000340| 65 20 6f 66 20 63 61 73 | 74 20 42 34 31 20 74 6f |e of cas|t B41 to|
|00000350| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 6f 66 20 | the pic|ture of |
|00000360| 63 61 73 74 20 42 37 31 | 0d 20 20 53 65 74 20 74 |cast B71|. Set t|
|00000370| 68 65 20 70 69 63 74 75 | 72 65 20 6f 66 20 63 61 |he pictu|re of ca|
|00000380| 73 74 20 41 37 31 20 74 | 6f 20 74 68 65 20 70 69 |st A71 t|o the pi|
|00000390| 63 74 75 72 65 20 6f 66 | 20 63 61 73 74 20 41 37 |cture of| cast A7|
|000003a0| 33 0d 20 20 53 65 74 20 | 74 68 65 20 70 69 63 74 |3. Set |the pict|
|000003b0| 75 72 65 20 6f 66 20 63 | 61 73 74 20 41 37 32 20 |ure of c|ast A72 |
|000003c0| 74 6f 20 74 68 65 20 70 | 69 63 74 75 72 65 20 6f |to the p|icture o|
|000003d0| 66 20 63 61 73 74 20 41 | 37 34 0d 20 20 53 65 74 |f cast A|74. Set|
|000003e0| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 6f 66 20 | the pic|ture of |
|000003f0| 63 61 73 74 20 42 33 31 | 20 74 6f 20 74 68 65 20 |cast B31| to the |
|00000400| 70 69 63 74 75 72 65 20 | 6f 66 20 63 61 73 74 20 |picture |of cast |
|00000410| 42 32 36 0d 65 6e 64 20 | 72 65 73 65 74 0d 0d 6f |B26.end |reset..o|
|00000420| 6e 20 73 65 74 56 6f 6c | 0d 20 20 70 75 70 70 65 |n setVol|. puppe|
|00000430| 74 53 6f 75 6e 64 20 30 | 0d 20 20 73 65 74 20 74 |tSound 0|. set t|
|00000440| 68 65 20 76 6f 6c 75 6d | 65 20 6f 66 20 73 70 72 |he volum|e of spr|
|00000450| 69 74 65 20 31 20 74 6f | 20 32 35 35 0d 65 6e 64 |ite 1 to| 255.end|
|00000460| 20 73 65 74 56 6f 6c 0d | 0d 6f 6e 20 44 72 6f 70 | setVol.|.on Drop|
|00000470| 4f 62 6a 65 63 74 0d 20 | 20 67 6c 6f 62 61 6c 20 |Object. | global |
|00000480| 43 61 72 64 2c 20 4c 6f | 63 61 74 69 6f 6e 2c 20 |Card, Lo|cation, |
|00000490| 41 63 63 65 73 73 2c 20 | 47 69 72 6c 2c 20 47 69 |Access, |Girl, Gi|
|000004a0| 72 6c 31 2c 20 47 69 72 | 6c 32 2c 20 47 69 72 6c |rl1, Gir|l2, Girl|
|000004b0| 33 2c 20 47 69 72 6c 34 | 2c 20 53 65 71 0d 20 20 |3, Girl4|, Seq. |
|000004c0| 70 75 74 20 30 20 69 6e | 74 6f 20 47 69 72 6c 0d |put 0 in|to Girl.|
|000004d0| 20 20 69 66 20 4c 6f 63 | 61 74 69 6f 6e 20 3d 20 | if Loc|ation = |
|000004e0| 47 69 72 6c 31 20 74 68 | 65 6e 0d 20 20 20 20 70 |Girl1 th|en. p|
|000004f0| 75 74 20 31 20 69 6e 74 | 6f 20 47 69 72 6c 0d 20 |ut 1 int|o Girl. |
|00000500| 20 65 6c 73 65 20 69 66 | 20 4c 6f 63 61 74 69 6f | else if| Locatio|
|00000510| 6e 20 3d 20 47 69 72 6c | 32 20 74 68 65 6e 0d 20 |n = Girl|2 then. |
|00000520| 20 20 20 70 75 74 20 32 | 20 69 6e 74 6f 20 47 69 | put 2| into Gi|
|00000530| 72 6c 0d 20 20 65 6c 73 | 65 20 69 66 20 4c 6f 63 |rl. els|e if Loc|
|00000540| 61 74 69 6f 6e 20 3d 20 | 47 69 72 6c 33 20 74 68 |ation = |Girl3 th|
|00000550| 65 6e 0d 20 20 20 20 70 | 75 74 20 33 20 69 6e 74 |en. p|ut 3 int|
|00000560| 6f 20 47 69 72 6c 0d 20 | 20 65 6c 73 65 20 69 66 |o Girl. | else if|
|00000570| 20 4c 6f 63 61 74 69 6f | 6e 20 3d 20 47 69 72 6c | Locatio|n = Girl|
|00000580| 34 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 34 |4 then. | put 4|
|00000590| 20 69 6e 74 6f 20 47 69 | 72 6c 0d 20 20 65 6e 64 | into Gi|rl. end|
|000005a0| 20 69 66 0d 20 20 69 66 | 20 43 61 72 64 20 3d 20 | if. if| Card = |
|000005b0| 47 69 72 6c 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |Girl the|n. pu|
|000005c0| 70 70 65 74 53 6f 75 6e | 64 20 22 41 63 63 65 73 |ppetSoun|d "Acces|
|000005d0| 73 22 0d 20 20 20 20 70 | 75 74 20 32 20 69 6e 74 |s". p|ut 2 int|
|000005e0| 6f 20 41 63 63 65 73 73 | 0d 20 20 20 20 67 6f 20 |o Access|. go |
|000005f0| 22 54 65 72 6d 44 6f 77 | 6e 22 0d 20 20 65 6c 73 |"TermDow|n". els|
|00000600| 65 0d 20 20 20 20 70 75 | 70 70 65 74 53 6f 75 6e |e. pu|ppetSoun|
|00000610| 64 20 22 4e 6f 41 63 63 | 65 73 73 22 0d 20 20 20 |d "NoAcc|ess". |
|00000620| 20 70 75 74 20 31 20 69 | 6e 74 6f 20 41 63 63 65 | put 1 i|nto Acce|
|00000630| 73 73 0d 20 20 20 20 67 | 6f 20 22 54 31 22 0d 20 |ss. g|o "T1". |
|00000640| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 44 72 6f 70 | end if.|end Drop|
|00000650| 4f 62 6a 65 63 74 0d 0d | 0d 2d 2d 20 5f 5f 5f 5f |Object..|.-- ____|
|00000660| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000670| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000680| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000690| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 0d 2d 2d 20 |________|____.-- |
|000006a0| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 || | C|
|000006b0| 6f 64 65 20 66 6f 72 20 | 49 6e 73 69 64 65 20 52 |ode for |Inside R|
|000006c0| 6f 6f 6d 20 2d 20 54 46 | 55 49 20 4d 6f 64 65 20 |oom - TF|UI Mode |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7c | | ||
|000006e0| 0d 2d 2d 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-- ----|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 2d 2d 2d 0d 6f 6e 20 | 50 6c 61 79 47 61 6d 65 |----.on |PlayGame|
|00000730| 31 0d 20 20 67 6c 6f 62 | 61 6c 20 6d 53 74 61 72 |1. glob|al mStar|
|00000740| 74 2c 20 4d 65 74 65 72 | 32 2c 20 53 70 6f 6f 67 |t, Meter|2, Spoog|
|00000750| 65 2c 20 54 6f 6f 6c 2c | 20 6e 6f 70 6c 61 79 0d |e, Tool,| noplay.|
|00000760| 20 20 70 75 74 20 30 20 | 69 6e 74 6f 20 44 50 4f | put 0 |into DPO|
|00000770| 53 0d 20 20 70 75 74 20 | 30 20 69 6e 74 6f 20 6e |S. put |0 into n|
|00000780| 6f 70 6c 61 79 0d 20 20 | 70 75 74 20 30 20 69 6e |oplay. |put 0 in|
|00000790| 74 6f 20 4d 65 74 65 72 | 32 0d 20 20 73 65 74 20 |to Meter|2. set |
|000007a0| 74 68 65 20 6d 6f 76 69 | 65 74 69 6d 65 20 6f 66 |the movi|etime of|
|000007b0| 20 73 70 72 69 74 65 20 | 31 20 74 6f 20 6d 53 74 | sprite |1 to mSt|
|000007c0| 61 72 74 0d 20 20 73 65 | 74 20 74 68 65 20 6d 6f |art. se|t the mo|
|000007d0| 76 69 65 72 61 74 65 20 | 6f 66 20 73 70 72 69 74 |vierate |of sprit|
|000007e0| 65 20 31 20 74 6f 20 31 | 0d 20 20 69 66 20 74 6f |e 1 to 1|. if to|
|000007f0| 6f 6c 20 3d 20 32 20 74 | 68 65 6e 20 70 75 74 20 |ol = 2 t|hen put |
|00000800| 33 20 69 6e 74 6f 20 53 | 70 6f 6f 67 65 0d 65 6e |3 into S|pooge.en|
|00000810| 64 20 50 6c 61 79 47 61 | 6d 65 31 0d 0d 6f 6e 20 |d PlayGa|me1..on |
|00000820| 50 6c 61 79 47 61 6d 65 | 32 0d 20 20 67 6c 6f 62 |PlayGame|2. glob|
|00000830| 61 6c 20 6d 45 6e 64 2c | 20 6f 72 67 2c 20 53 70 |al mEnd,| org, Sp|
|00000840| 6f 6f 67 65 2c 20 53 65 | 63 74 69 6f 6e 0d 20 20 |ooge, Se|ction. |
|00000850| 73 65 74 20 74 68 65 20 | 6d 6f 76 69 65 74 69 6d |set the |movietim|
|00000860| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 20 74 6f |e of spr|ite 1 to|
|00000870| 20 6d 45 6e 64 0d 20 20 | 73 65 74 20 74 68 65 20 | mEnd. |set the |
|00000880| 6d 6f 76 69 65 72 61 74 | 65 20 6f 66 20 73 70 72 |movierat|e of spr|
|00000890| 69 74 65 20 31 20 74 6f | 20 30 0d 20 20 69 66 20 |ite 1 to| 0. if |
|000008a0| 4f 72 67 20 3d 20 37 20 | 20 74 68 65 6e 0d 20 20 |Org = 7 | then. |
|000008b0| 20 20 57 68 69 63 68 57 | 69 6e 0d 20 20 65 6c 73 | WhichW|in. els|
|000008c0| 65 20 69 66 20 53 70 6f | 6f 67 65 20 3e 20 36 20 |e if Spo|oge > 6 |
|000008d0| 61 6e 64 20 4f 72 67 20 | 3c 20 37 20 74 68 65 6e |and Org |< 7 then|
|000008e0| 0d 20 20 20 20 57 68 69 | 63 68 4c 6f 73 65 0d 20 |. Whi|chLose. |
|000008f0| 20 65 6c 73 65 20 69 66 | 20 6f 72 67 20 3c 20 37 | else if| org < 7|
|00000900| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 74 68 | then. | set th|
|00000910| 65 20 74 69 6d 65 72 20 | 74 6f 20 30 0d 20 20 20 |e timer |to 0. |
|00000920| 20 57 68 69 63 68 47 69 | 72 6c 0d 20 20 65 6e 64 | WhichGi|rl. end|
|00000930| 20 69 66 0d 65 6e 64 20 | 50 6c 61 79 47 61 6d 65 | if.end |PlayGame|
|00000940| 32 0d 0d 6f 6e 20 77 68 | 69 63 68 4c 6f 73 65 0d |2..on wh|ichLose.|
|00000950| 20 20 67 6c 6f 62 61 6c | 20 67 69 72 6c 0d 20 20 | global| girl. |
|00000960| 69 66 20 67 69 72 6c 20 | 3d 20 31 20 74 68 65 6e |if girl |= 1 then|
|00000970| 0d 20 20 20 20 67 6f 20 | 22 4c 6f 73 65 45 22 0d |. go |"LoseE".|
|00000980| 20 20 65 6c 73 65 20 69 | 66 20 67 69 72 6c 20 3d | else i|f girl =|
|00000990| 20 32 20 74 68 65 6e 0d | 20 20 20 20 67 6f 20 22 | 2 then.| go "|
|000009a0| 4c 6f 73 65 22 0d 20 20 | 65 6c 73 65 20 69 66 20 |Lose". |else if |
|000009b0| 67 69 72 6c 20 3d 20 33 | 20 74 68 65 6e 0d 20 20 |girl = 3| then. |
|000009c0| 20 20 67 6f 20 22 4c 6f | 73 65 41 22 0d 20 20 65 | go "Lo|seA". e|
|000009d0| 6c 73 65 20 69 66 20 67 | 69 72 6c 20 3d 20 34 20 |lse if g|irl = 4 |
|000009e0| 74 68 65 6e 0d 20 20 20 | 20 67 6f 20 22 4c 6f 73 |then. | go "Los|
|000009f0| 65 43 22 0d 20 20 65 6e | 64 20 69 66 0d 65 6e 64 |eC". en|d if.end|
|00000a00| 20 77 68 69 63 68 4c 6f | 73 65 0d 0d 6f 6e 20 77 | whichLo|se..on w|
|00000a10| 68 69 63 68 57 69 6e 0d | 20 20 67 6c 6f 62 61 6c |hichWin.| global|
|00000a20| 20 67 69 72 6c 0d 20 20 | 69 66 20 67 69 72 6c 20 | girl. |if girl |
|00000a30| 3d 20 31 20 74 68 65 6e | 0d 20 20 20 20 67 6f 20 |= 1 then|. go |
|00000a40| 22 57 69 6e 45 22 0d 20 | 20 65 6c 73 65 20 69 66 |"WinE". | else if|
|00000a50| 20 67 69 72 6c 20 3d 20 | 32 20 74 68 65 6e 0d 20 | girl = |2 then. |
|00000a60| 20 20 20 67 6f 20 22 57 | 69 6e 22 0d 20 20 65 6c | go "W|in". el|
|00000a70| 73 65 20 69 66 20 67 69 | 72 6c 20 3d 20 33 20 74 |se if gi|rl = 3 t|
|00000a80| 68 65 6e 0d 20 20 20 20 | 67 6f 20 22 57 69 6e 41 |hen. |go "WinA|
|00000a90| 22 0d 20 20 65 6c 73 65 | 20 69 66 20 67 69 72 6c |". else| if girl|
|00000aa0| 20 3d 20 34 20 74 68 65 | 6e 0d 20 20 20 20 67 6f | = 4 the|n. go|
|00000ab0| 20 22 57 69 6e 43 22 0d | 20 20 65 6e 64 20 69 66 | "WinC".| end if|
|00000ac0| 0d 65 6e 64 20 77 68 69 | 63 68 57 69 6e 0d 0d 6f |.end whi|chWin..o|
|00000ad0| 6e 20 57 68 69 63 68 47 | 69 72 6c 0d 20 20 67 6c |n WhichG|irl. gl|
|00000ae0| 6f 62 61 6c 20 53 65 63 | 74 69 6f 6e 2c 20 53 65 |obal Sec|tion, Se|
|00000af0| 63 74 69 6f 6e 32 2c 20 | 47 69 72 6c 0d 20 20 69 |ction2, |Girl. i|
|00000b00| 66 20 73 65 63 74 69 6f | 6e 20 3d 20 31 20 74 68 |f sectio|n = 1 th|
|00000b10| 65 6e 0d 20 20 20 20 54 | 61 64 4d 6f 76 65 0d 20 |en. T|adMove. |
|00000b20| 20 65 6c 73 65 20 69 66 | 20 73 65 63 74 69 6f 6e | else if| section|
|00000b30| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 54 61 | = 2 the|n. Ta|
|00000b40| 64 4d 6f 76 65 32 0d 20 | 20 65 6e 64 20 69 66 0d |dMove2. | end if.|
|00000b50| 65 6e 64 20 20 57 68 69 | 63 68 47 69 72 6c 0d 0d |end Whi|chGirl..|
|00000b60| 0d 6f 6e 20 43 68 65 63 | 6b 49 74 4f 75 74 0d 20 |.on Chec|kItOut. |
|00000b70| 20 67 6c 6f 62 61 6c 20 | 53 65 71 2c 20 4f 72 67 | global |Seq, Org|
|00000b80| 2c 20 47 72 6f 70 65 2c | 20 53 65 74 4d 65 74 65 |, Grope,| SetMete|
|00000b90| 72 0d 20 20 69 66 20 63 | 68 61 72 20 4f 72 67 2b |r. if c|har Org+|
|00000ba0| 31 20 6f 66 20 53 65 71 | 20 3d 20 73 74 72 69 6e |1 of Seq| = strin|
|00000bb0| 67 28 47 72 6f 70 65 29 | 20 74 68 65 6e 0d 20 20 |g(Grope)| then. |
|00000bc0| 20 20 70 75 74 20 31 20 | 69 6e 74 6f 20 53 65 74 | put 1 |into Set|
|00000bd0| 4d 65 74 65 72 0d 20 20 | 65 6c 73 65 20 70 75 74 |Meter. |else put|
|00000be0| 20 32 20 69 6e 74 6f 20 | 53 65 74 4d 65 74 65 72 | 2 into |SetMeter|
|00000bf0| 0d 65 6e 64 20 43 68 65 | 63 6b 49 74 4f 75 74 0d |.end Che|ckItOut.|
|00000c00| 0d 6f 6e 20 4d 65 74 65 | 72 0d 20 20 67 6c 6f 62 |.on Mete|r. glob|
|00000c10| 61 6c 20 4d 65 74 65 72 | 32 2c 20 6d 53 74 61 72 |al Meter|2, mStar|
|00000c20| 74 2c 20 6d 46 72 61 6d | 65 73 2c 20 53 65 74 4d |t, mFram|es, SetM|
|00000c30| 65 74 65 72 2c 20 54 6f | 6f 6c 2c 20 53 70 6f 6f |eter, To|ol, Spoo|
|00000c40| 67 65 2c 20 47 72 6f 70 | 65 2c 20 54 6f 70 2c 20 |ge, Grop|e, Top, |
|00000c50| 42 6f 74 74 6f 6d 2c 20 | 52 69 70 0d 20 20 69 66 |Bottom, |Rip. if|
|00000c60| 20 4d 65 74 65 72 32 20 | 3e 20 30 20 61 6e 64 20 | Meter2 |> 0 and |
|00000c70| 4d 65 74 65 72 32 20 3c | 20 34 20 74 68 65 6e 0d |Meter2 <| 4 then.|
|00000c80| 20 20 20 20 70 75 74 20 | 6d 53 74 61 72 74 20 2b | put |mStart +|
|00000c90| 20 6d 46 72 61 6d 65 73 | 20 69 6e 74 6f 20 6d 53 | mFrames| into mS|
|00000ca0| 74 61 72 74 0d 20 20 65 | 6c 73 65 20 69 66 20 4d |tart. e|lse if M|
|00000cb0| 65 74 65 72 32 20 3d 20 | 34 20 74 68 65 6e 0d 20 |eter2 = |4 then. |
|00000cc0| 20 20 20 70 75 74 20 6d | 53 74 61 72 74 20 2b 20 | put m|Start + |
|00000cd0| 6d 46 72 61 6d 65 73 20 | 69 6e 74 6f 20 6d 53 74 |mFrames |into mSt|
|00000ce0| 61 72 74 0d 20 20 65 6c | 73 65 20 69 66 20 4d 65 |art. el|se if Me|
|00000cf0| 74 65 72 32 20 3d 20 35 | 20 74 68 65 6e 0d 20 20 |ter2 = 5| then. |
|00000d00| 20 20 70 75 74 20 6d 53 | 74 61 72 74 20 2b 20 6d | put mS|tart + m|
|00000d10| 46 72 61 6d 65 73 20 69 | 6e 74 6f 20 6d 53 74 61 |Frames i|nto mSta|
|00000d20| 72 74 0d 20 20 65 6c 73 | 65 20 69 66 20 4d 65 74 |rt. els|e if Met|
|00000d30| 65 72 32 20 3d 20 36 20 | 74 68 65 6e 0d 20 20 20 |er2 = 6 |then. |
|00000d40| 20 70 75 74 20 6d 53 74 | 61 72 74 20 2b 20 6d 46 | put mSt|art + mF|
|00000d50| 72 61 6d 65 73 20 69 6e | 74 6f 20 6d 53 74 61 72 |rames in|to mStar|
|00000d60| 74 0d 20 20 65 6c 73 65 | 20 69 66 20 4d 65 74 65 |t. else| if Mete|
|00000d70| 72 32 20 3d 20 37 20 74 | 68 65 6e 0d 20 20 20 20 |r2 = 7 t|hen. |
|00000d80| 70 75 74 20 6d 53 74 61 | 72 74 20 2b 20 6d 46 72 |put mSta|rt + mFr|
|00000d90| 61 6d 65 73 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |ames int|o mStart|
|00000da0| 0d 20 20 20 20 69 66 20 | 74 6f 6f 6c 20 3d 20 32 |. if |tool = 2|
|00000db0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 70 75 74 20 | then. | put |
|00000dc0| 53 70 6f 6f 67 65 20 2b | 20 31 20 69 6e 74 6f 20 |Spooge +| 1 into |
|00000dd0| 53 70 6f 6f 67 65 0d 20 | 20 20 20 65 6e 64 20 69 |Spooge. | end i|
|00000de0| 66 0d 20 20 65 6c 73 65 | 20 69 66 20 4d 65 74 65 |f. else| if Mete|
|00000df0| 72 32 20 3d 20 38 20 74 | 68 65 6e 0d 20 20 20 20 |r2 = 8 t|hen. |
|00000e00| 70 75 74 20 6d 53 74 61 | 72 74 20 2b 20 6d 46 72 |put mSta|rt + mFr|
|00000e10| 61 6d 65 73 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |ames int|o mStart|
|00000e20| 0d 20 20 20 20 69 66 20 | 74 6f 6f 6c 20 3d 20 32 |. if |tool = 2|
|00000e30| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 70 75 74 20 | then. | put |
|00000e40| 53 70 6f 6f 67 65 20 2b | 20 31 20 69 6e 74 6f 20 |Spooge +| 1 into |
|00000e50| 53 70 6f 6f 67 65 0d 20 | 20 20 20 65 6e 64 20 69 |Spooge. | end i|
|00000e60| 66 0d 20 20 65 6c 73 65 | 20 69 66 20 4d 65 74 65 |f. else| if Mete|
|00000e70| 72 32 20 3d 20 39 20 74 | 68 65 6e 0d 20 20 20 20 |r2 = 9 t|hen. |
|00000e80| 70 75 74 20 6d 53 74 61 | 72 74 20 2b 20 6d 46 72 |put mSta|rt + mFr|
|00000e90| 61 6d 65 73 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |ames int|o mStart|
|00000ea0| 0d 20 20 20 20 4f 4d 65 | 74 65 72 0d 20 20 20 20 |. OMe|ter. |
|00000eb0| 69 66 20 74 6f 6f 6c 20 | 3d 20 32 20 74 68 65 6e |if tool |= 2 then|
|00000ec0| 0d 20 20 20 20 20 20 70 | 75 74 20 53 70 6f 6f 67 |. p|ut Spoog|
|00000ed0| 65 20 2b 20 31 20 69 6e | 74 6f 20 53 70 6f 6f 67 |e + 1 in|to Spoog|
|00000ee0| 65 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |e. en|d if. e|
|00000ef0| 6c 73 65 20 69 66 20 4d | 65 74 65 72 32 20 3d 20 |lse if M|eter2 = |
|00000f00| 31 30 20 74 68 65 6e 0d | 20 20 20 20 70 75 74 20 |10 then.| put |
|00000f10| 6d 53 74 61 72 74 20 2b | 20 6d 46 72 61 6d 65 73 |mStart +| mFrames|
|00000f20| 20 69 6e 74 6f 20 6d 53 | 74 61 72 74 0d 20 20 20 | into mS|tart. |
|00000f30| 20 69 66 20 74 6f 6f 6c | 20 3d 20 32 20 74 68 65 | if tool| = 2 the|
|00000f40| 6e 0d 20 20 20 20 20 20 | 70 75 74 20 53 70 6f 6f |n. |put Spoo|
|00000f50| 67 65 20 2b 20 31 20 69 | 6e 74 6f 20 53 70 6f 6f |ge + 1 i|nto Spoo|
|00000f60| 67 65 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |ge. e|nd if. |
|00000f70| 65 6e 64 20 69 66 0d 20 | 20 69 66 20 74 6f 6f 6c |end if. | if tool|
|00000f80| 20 3d 20 32 20 74 68 65 | 6e 20 47 4d 65 74 65 72 | = 2 the|n GMeter|
|00000f90| 0d 20 20 70 75 74 20 4d | 65 74 65 72 32 20 2b 20 |. put M|eter2 + |
|00000fa0| 31 20 69 6e 74 6f 20 4d | 65 74 65 72 32 0d 20 20 |1 into M|eter2. |
|00000fb0| 67 6f 20 6d 61 72 6b 65 | 72 28 32 29 0d 65 6e 64 |go marke|r(2).end|
|00000fc0| 20 4d 65 74 65 72 0d 0d | 6f 6e 20 4f 4d 65 74 65 | Meter..|on OMete|
|00000fd0| 72 0d 20 20 67 6c 6f 62 | 61 6c 20 4f 72 67 2c 20 |r. glob|al Org, |
|00000fe0| 4d 65 74 65 72 32 2c 20 | 53 65 74 4d 65 74 65 72 |Meter2, |SetMeter|
|00000ff0| 2c 20 53 70 6f 6f 67 65 | 2c 20 67 69 72 6c 0d 20 |, Spooge|, girl. |
|00001000| 20 2d 2d 20 6f 6e 20 62 | 75 74 74 6f 6e 20 63 6c | -- on b|utton cl|
|00001010| 69 63 6b 20 63 68 65 63 | 6b 20 69 66 20 73 65 74 |ick chec|k if set|
|00001020| 4d 65 74 65 72 20 69 73 | 20 31 0d 20 20 2d 2d 20 |Meter is| 1. -- |
|00001030| 69 66 20 54 72 75 65 20 | 74 68 65 6e 20 75 70 20 |if True |then up |
|00001040| 4f 72 67 20 4c 65 76 65 | 6c 20 61 6e 64 20 4f 72 |Org Leve|l and Or|
|00001050| 67 20 4d 65 74 65 72 0d | 20 20 69 66 20 4d 65 74 |g Meter.| if Met|
|00001060| 65 72 32 20 3d 20 39 20 | 74 68 65 6e 0d 20 20 20 |er2 = 9 |then. |
|00001070| 20 69 66 20 73 65 74 4d | 65 74 65 72 20 3d 20 31 | if setM|eter = 1|
|00001080| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 70 75 74 20 | then. | put |
|00001090| 4f 72 67 20 2b 20 31 20 | 69 6e 74 6f 20 4f 72 67 |Org + 1 |into Org|
|000010a0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |. end| if. en|
|000010b0| 64 20 69 66 0d 20 20 69 | 66 20 4f 72 67 20 3d 20 |d if. i|f Org = |
|000010c0| 30 20 74 68 65 6e 0d 20 | 20 20 20 53 65 74 20 74 |0 then. | Set t|
|000010d0| 68 65 20 70 69 63 74 75 | 72 65 20 6f 66 20 63 61 |he pictu|re of ca|
|000010e0| 73 74 20 42 33 31 20 74 | 6f 20 74 68 65 20 70 69 |st B31 t|o the pi|
|000010f0| 63 74 75 72 65 20 6f 66 | 20 63 61 73 74 20 42 32 |cture of| cast B2|
|00001100| 36 0d 20 20 65 6c 73 65 | 20 69 66 20 4f 72 67 20 |6. else| if Org |
|00001110| 3e 20 30 20 74 68 65 6e | 0d 20 20 20 20 53 65 74 |> 0 then|. Set|
|00001120| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 6f 66 20 | the pic|ture of |
|00001130| 63 61 73 74 20 42 33 31 | 20 74 6f 20 74 68 65 20 |cast B31| to the |
|00001140| 70 69 63 74 75 72 65 20 | 6f 66 20 63 61 73 74 20 |picture |of cast |
|00001150| 28 42 33 31 20 2b 20 4f | 72 67 29 0d 20 20 65 6e |(B31 + O|rg). en|
|00001160| 64 20 69 66 0d 20 20 69 | 66 20 6f 72 67 20 3d 20 |d if. i|f org = |
|00001170| 33 20 61 6e 64 20 73 70 | 6f 6f 67 65 20 3c 20 31 |3 and sp|ooge < 1|
|00001180| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 31 20 | then. | put 1 |
|00001190| 69 6e 74 6f 20 73 70 6f | 6f 67 65 0d 20 20 65 6e |into spo|oge. en|
|000011a0| 64 20 69 66 0d 20 20 69 | 66 20 6f 72 67 20 3d 20 |d if. i|f org = |
|000011b0| 34 20 61 6e 64 20 73 70 | 6f 6f 67 65 20 3c 20 32 |4 and sp|ooge < 2|
|000011c0| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 32 20 | then. | put 2 |
|000011d0| 69 6e 74 6f 20 73 70 6f | 6f 67 65 20 0d 20 20 65 |into spo|oge . e|
|000011e0| 6e 64 20 69 66 0d 20 20 | 69 66 20 6f 72 67 20 3d |nd if. |if org =|
|000011f0| 20 35 20 61 6e 64 20 73 | 70 6f 6f 67 65 20 3c 20 | 5 and s|pooge < |
|00001200| 33 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 33 |3 then. | put 3|
|00001210| 20 69 6e 74 6f 20 73 70 | 6f 6f 67 65 20 0d 20 20 | into sp|ooge . |
|00001220| 65 6e 64 20 69 66 0d 20 | 20 47 4d 65 74 65 72 0d |end if. | GMeter.|
|00001230| 65 6e 64 20 4f 4d 65 74 | 65 72 0d 0d 6f 6e 20 47 |end OMet|er..on G|
|00001240| 4d 65 74 65 72 0d 20 20 | 67 6c 6f 62 61 6c 20 53 |Meter. |global S|
|00001250| 70 6f 6f 67 65 2c 20 54 | 6f 6f 6c 0d 20 20 69 66 |pooge, T|ool. if|
|00001260| 20 53 70 6f 6f 67 65 20 | 3e 20 37 20 74 68 65 6e | Spooge |> 7 then|
|00001270| 20 70 75 74 20 37 20 69 | 6e 74 6f 20 53 70 6f 6f | put 7 i|nto Spoo|
|00001280| 67 65 0d 20 20 69 66 20 | 53 70 6f 6f 67 65 20 3d |ge. if |Spooge =|
|00001290| 20 37 20 74 68 65 6e 20 | 54 75 72 6e 4f 66 66 0d | 7 then |TurnOff.|
|000012a0| 20 20 69 66 20 53 70 6f | 6f 67 65 20 3d 20 30 20 | if Spo|oge = 0 |
|000012b0| 74 68 65 6e 0d 20 20 20 | 20 53 65 74 20 74 68 65 |then. | Set the|
|000012c0| 20 70 69 63 74 75 72 65 | 20 6f 66 20 63 61 73 74 | picture| of cast|
|000012d0| 20 42 34 31 20 74 6f 20 | 74 68 65 20 70 69 63 74 | B41 to |the pict|
|000012e0| 75 72 65 20 6f 66 20 63 | 61 73 74 20 42 37 31 0d |ure of c|ast B71.|
|000012f0| 20 20 65 6c 73 65 20 69 | 66 20 53 70 6f 6f 67 65 | else i|f Spooge|
|00001300| 20 3e 20 30 20 61 6e 64 | 20 73 70 6f 6f 67 65 20 | > 0 and| spooge |
|00001310| 3c 20 34 20 74 68 65 6e | 0d 20 20 20 20 53 65 74 |< 4 then|. Set|
|00001320| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 6f 66 20 | the pic|ture of |
|00001330| 63 61 73 74 20 42 34 31 | 20 74 6f 20 74 68 65 20 |cast B41| to the |
|00001340| 70 69 63 74 75 72 65 20 | 6f 66 20 63 61 73 74 20 |picture |of cast |
|00001350| 28 42 34 31 20 2b 20 73 | 70 6f 6f 67 65 29 0d 20 |(B41 + s|pooge). |
|00001360| 20 65 6e 64 20 69 66 0d | 20 20 69 66 20 53 70 6f | end if.| if Spo|
|00001370| 6f 67 65 20 3c 20 34 20 | 74 68 65 6e 0d 20 20 20 |oge < 4 |then. |
|00001380| 20 53 65 74 20 74 68 65 | 20 76 69 73 69 62 69 6c | Set the| visibil|
|00001390| 69 74 79 20 6f 66 20 73 | 70 72 69 74 65 20 31 38 |ity of s|prite 18|
|000013a0| 20 74 6f 20 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 | to 0. |end if. |
|000013b0| 20 69 66 20 53 70 6f 6f | 67 65 20 3e 20 33 20 61 | if Spoo|ge > 3 a|
|000013c0| 6e 64 20 54 6f 6f 6c 20 | 3d 20 32 20 74 68 65 6e |nd Tool |= 2 then|
|000013d0| 0d 20 20 20 20 53 65 74 | 20 74 68 65 20 76 69 73 |. Set| the vis|
|000013e0| 69 62 69 6c 69 74 79 20 | 6f 66 20 73 70 72 69 74 |ibility |of sprit|
|000013f0| 65 20 31 38 20 74 6f 20 | 31 0d 20 20 65 6e 64 20 |e 18 to |1. end |
|00001400| 69 66 0d 65 6e 64 20 47 | 4d 65 74 65 72 0d 0d 6f |if.end G|Meter..o|
|00001410| 6e 20 44 53 6f 6f 6e 4d | 6f 6f 64 31 0d 20 20 67 |n DSoonM|ood1. g|
|00001420| 6c 6f 62 61 6c 20 47 69 | 72 6c 0d 20 20 69 66 20 |lobal Gi|rl. if |
|00001430| 47 69 72 6c 20 3d 20 31 | 20 74 68 65 6e 0d 20 20 |Girl = 1| then. |
|00001440| 20 20 53 6f 6f 6e 4d 6f | 6f 64 31 45 0d 20 20 65 | SoonMo|od1E. e|
|00001450| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|00001460| 74 68 65 6e 0d 20 20 20 | 20 53 6f 6f 6e 4d 6f 6f |then. | SoonMoo|
|00001470| 64 31 0d 20 20 65 6c 73 | 65 20 69 66 20 47 69 72 |d1. els|e if Gir|
|00001480| 6c 20 3d 20 33 20 74 68 | 65 6e 0d 20 20 20 20 53 |l = 3 th|en. S|
|00001490| 6f 6f 6e 4d 6f 6f 64 31 | 41 0d 20 20 65 6c 73 65 |oonMood1|A. else|
|000014a0| 20 69 66 20 47 69 72 6c | 20 3d 20 34 20 74 68 65 | if Girl| = 4 the|
|000014b0| 6e 0d 20 20 20 20 53 6f | 6f 6e 4d 6f 6f 64 31 43 |n. So|onMood1C|
|000014c0| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 44 53 |. end i|f.end DS|
|000014d0| 6f 6f 6e 4d 6f 6f 64 31 | 0d 0d 6f 6e 20 44 53 6c |oonMood1|..on DSl|
|000014e0| 6f 77 0d 20 20 67 6c 6f | 62 61 6c 20 47 69 72 6c |ow. glo|bal Girl|
|000014f0| 0d 20 20 69 66 20 47 69 | 72 6c 20 3d 20 31 20 74 |. if Gi|rl = 1 t|
|00001500| 68 65 6e 0d 20 20 20 20 | 53 6c 6f 77 45 0d 20 20 |hen. |SlowE. |
|00001510| 65 6c 73 65 20 69 66 20 | 47 69 72 6c 20 3d 20 32 |else if |Girl = 2|
|00001520| 20 74 68 65 6e 0d 20 20 | 20 20 53 6c 6f 77 0d 20 | then. | Slow. |
|00001530| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|00001540| 33 20 74 68 65 6e 0d 20 | 20 20 20 53 6c 6f 77 41 |3 then. | SlowA|
|00001550| 0d 20 20 65 6c 73 65 20 | 69 66 20 47 69 72 6c 20 |. else |if Girl |
|00001560| 3d 20 34 20 74 68 65 6e | 0d 20 20 20 20 53 6c 6f |= 4 then|. Slo|
|00001570| 77 43 0d 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 20 |wC. end| if.end |
|00001580| 44 53 6c 6f 77 0d 0d 6f | 6e 20 44 53 6c 6f 77 32 |DSlow..o|n DSlow2|
|00001590| 0d 20 20 67 6c 6f 62 61 | 6c 20 47 69 72 6c 0d 20 |. globa|l Girl. |
|000015a0| 20 69 66 20 47 69 72 6c | 20 3d 20 31 20 74 68 65 | if Girl| = 1 the|
|000015b0| 6e 0d 20 20 20 20 53 6c | 6f 77 32 45 0d 20 20 65 |n. Sl|ow2E. e|
|000015c0| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|000015d0| 74 68 65 6e 0d 20 20 20 | 20 53 6c 6f 77 32 0d 20 |then. | Slow2. |
|000015e0| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|000015f0| 33 20 74 68 65 6e 0d 20 | 20 20 20 53 6c 6f 77 32 |3 then. | Slow2|
|00001600| 41 0d 20 20 65 6c 73 65 | 20 69 66 20 47 69 72 6c |A. else| if Girl|
|00001610| 20 3d 20 34 20 74 68 65 | 6e 0d 20 20 20 20 53 6c | = 4 the|n. Sl|
|00001620| 6f 77 32 43 0d 20 20 65 | 6e 64 20 69 66 0d 65 6e |ow2C. e|nd if.en|
|00001630| 64 20 44 53 6c 6f 77 32 | 0d 0d 6f 6e 20 44 53 6f |d DSlow2|..on DSo|
|00001640| 6f 6e 4d 6f 6f 64 32 0d | 20 20 67 6c 6f 62 61 6c |onMood2.| global|
|00001650| 20 47 69 72 6c 0d 20 20 | 69 66 20 47 69 72 6c 20 | Girl. |if Girl |
|00001660| 3d 20 31 20 74 68 65 6e | 0d 20 20 20 20 53 6f 6f |= 1 then|. Soo|
|00001670| 6e 4d 6f 6f 64 32 45 0d | 20 20 65 6c 73 65 20 69 |nMood2E.| else i|
|00001680| 66 20 47 69 72 6c 20 3d | 20 32 20 74 68 65 6e 0d |f Girl =| 2 then.|
|00001690| 20 20 20 20 53 6f 6f 6e | 4d 6f 6f 64 32 0d 20 20 | Soon|Mood2. |
|000016a0| 65 6c 73 65 20 69 66 20 | 47 69 72 6c 20 3d 20 33 |else if |Girl = 3|
|000016b0| 20 74 68 65 6e 0d 20 20 | 20 20 53 6f 6f 6e 4d 6f | then. | SoonMo|
|000016c0| 6f 64 32 41 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |od2A. e|lse if G|
|000016d0| 69 72 6c 20 3d 20 34 20 | 74 68 65 6e 0d 20 20 20 |irl = 4 |then. |
|000016e0| 20 53 6f 6f 6e 4d 6f 6f | 64 32 43 0d 20 20 65 6e | SoonMoo|d2C. en|
|000016f0| 64 20 69 66 0d 65 6e 64 | 20 44 53 6f 6f 6e 4d 6f |d if.end| DSoonMo|
|00001700| 6f 64 32 0d 0d 6f 6e 20 | 44 4e 6f 74 59 65 74 0d |od2..on |DNotYet.|
|00001710| 20 20 67 6c 6f 62 61 6c | 20 47 69 72 6c 0d 20 20 | global| Girl. |
|00001720| 69 66 20 47 69 72 6c 20 | 3d 20 31 20 74 68 65 6e |if Girl |= 1 then|
|00001730| 0d 20 20 20 20 4e 6f 74 | 59 65 74 45 0d 20 20 65 |. Not|YetE. e|
|00001740| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|00001750| 74 68 65 6e 0d 20 20 20 | 20 4e 6f 74 59 65 74 0d |then. | NotYet.|
|00001760| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|00001770| 20 33 20 74 68 65 6e 0d | 20 20 20 20 4e 6f 74 59 | 3 then.| NotY|
|00001780| 65 74 41 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |etA. el|se if Gi|
|00001790| 72 6c 20 3d 20 34 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 4 t|hen. |
|000017a0| 4e 6f 74 59 65 74 43 0d | 20 20 65 6e 64 20 69 66 |NotYetC.| end if|
|000017b0| 0d 65 6e 64 20 44 4e 6f | 74 59 65 74 0d 0d 6f 6e |.end DNo|tYet..on|
|000017c0| 20 44 46 61 63 65 0d 20 | 20 67 6c 6f 62 61 6c 20 | DFace. | global |
|000017d0| 47 69 72 6c 0d 20 20 69 | 66 20 47 69 72 6c 20 3d |Girl. i|f Girl =|
|000017e0| 20 31 20 74 68 65 6e 0d | 20 20 20 20 46 61 63 65 | 1 then.| Face|
|000017f0| 45 0d 20 20 65 6c 73 65 | 20 69 66 20 47 69 72 6c |E. else| if Girl|
|00001800| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 46 61 | = 2 the|n. Fa|
|00001810| 63 65 0d 20 20 65 6c 73 | 65 20 69 66 20 47 69 72 |ce. els|e if Gir|
|00001820| 6c 20 3d 20 33 20 74 68 | 65 6e 0d 20 20 20 20 46 |l = 3 th|en. F|
|00001830| 61 63 65 41 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |aceA. e|lse if G|
|00001840| 69 72 6c 20 3d 20 34 20 | 74 68 65 6e 0d 20 20 20 |irl = 4 |then. |
|00001850| 20 46 61 63 65 43 0d 20 | 20 65 6e 64 20 69 66 0d | FaceC. | end if.|
|00001860| 65 6e 64 20 44 46 61 63 | 65 0d 0d 6f 6e 20 44 48 |end DFac|e..on DH|
|00001870| 65 61 64 0d 20 20 67 6c | 6f 62 61 6c 20 47 69 72 |ead. gl|obal Gir|
|00001880| 6c 0d 20 20 69 66 20 47 | 69 72 6c 20 3d 20 31 20 |l. if G|irl = 1 |
|00001890| 74 68 65 6e 0d 20 20 20 | 20 48 65 61 64 45 0d 20 |then. | HeadE. |
|000018a0| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|000018b0| 32 20 74 68 65 6e 0d 20 | 20 20 20 48 65 61 64 0d |2 then. | Head.|
|000018c0| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|000018d0| 20 33 20 74 68 65 6e 0d | 20 20 20 20 48 65 61 64 | 3 then.| Head|
|000018e0| 41 0d 20 20 65 6c 73 65 | 20 69 66 20 47 69 72 6c |A. else| if Girl|
|000018f0| 20 3d 20 34 20 74 68 65 | 6e 0d 20 20 20 20 48 65 | = 4 the|n. He|
|00001900| 61 64 43 0d 20 20 65 6e | 64 20 69 66 0d 65 6e 64 |adC. en|d if.end|
|00001910| 20 44 48 65 61 64 0d 0d | 6f 6e 20 44 54 6f 75 63 | DHead..|on DTouc|
|00001920| 68 42 72 65 61 73 74 31 | 0d 20 20 67 6c 6f 62 61 |hBreast1|. globa|
|00001930| 6c 20 47 69 72 6c 0d 20 | 20 69 66 20 47 69 72 6c |l Girl. | if Girl|
|00001940| 20 3d 20 31 20 74 68 65 | 6e 0d 20 20 20 20 54 6f | = 1 the|n. To|
|00001950| 75 63 68 42 72 65 61 73 | 74 31 45 0d 20 20 65 6c |uchBreas|t1E. el|
|00001960| 73 65 20 69 66 20 47 69 | 72 6c 20 3d 20 32 20 74 |se if Gi|rl = 2 t|
|00001970| 68 65 6e 0d 20 20 20 20 | 54 6f 75 63 68 42 72 65 |hen. |TouchBre|
|00001980| 61 73 74 31 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |ast1. e|lse if G|
|00001990| 69 72 6c 20 3d 20 33 20 | 74 68 65 6e 0d 20 20 20 |irl = 3 |then. |
|000019a0| 20 54 6f 75 63 68 42 72 | 65 61 73 74 31 41 0d 20 | TouchBr|east1A. |
|000019b0| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|000019c0| 34 20 74 68 65 6e 0d 20 | 20 20 20 54 6f 75 63 68 |4 then. | Touch|
|000019d0| 42 72 65 61 73 74 31 43 | 0d 20 20 65 6e 64 20 69 |Breast1C|. end i|
|000019e0| 66 0d 65 6e 64 20 44 54 | 6f 75 63 68 42 72 65 61 |f.end DT|ouchBrea|
|000019f0| 73 74 31 0d 0d 6f 6e 20 | 44 54 6f 70 4f 66 66 0d |st1..on |DTopOff.|
|00001a00| 20 20 67 6c 6f 62 61 6c | 20 47 69 72 6c 0d 20 20 | global| Girl. |
|00001a10| 69 66 20 47 69 72 6c 20 | 3d 20 31 20 74 68 65 6e |if Girl |= 1 then|
|00001a20| 0d 20 20 20 20 54 6f 70 | 4f 66 66 45 0d 20 20 65 |. Top|OffE. e|
|00001a30| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|00001a40| 74 68 65 6e 0d 20 20 20 | 20 54 6f 70 4f 66 66 0d |then. | TopOff.|
|00001a50| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|00001a60| 20 33 20 74 68 65 6e 0d | 20 20 20 20 54 6f 70 4f | 3 then.| TopO|
|00001a70| 66 66 41 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |ffA. el|se if Gi|
|00001a80| 72 6c 20 3d 20 34 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 4 t|hen. |
|00001a90| 54 6f 70 4f 66 66 43 0d | 20 20 65 6e 64 20 69 66 |TopOffC.| end if|
|00001aa0| 0d 65 6e 64 20 44 54 6f | 70 4f 66 66 0d 0d 6f 6e |.end DTo|pOff..on|
|00001ab0| 20 44 54 6f 75 63 68 42 | 72 65 61 73 74 32 0d 20 | DTouchB|reast2. |
|00001ac0| 20 67 6c 6f 62 61 6c 20 | 47 69 72 6c 0d 20 20 69 | global |Girl. i|
|00001ad0| 66 20 47 69 72 6c 20 3d | 20 31 20 74 68 65 6e 0d |f Girl =| 1 then.|
|00001ae0| 20 20 20 20 54 6f 75 63 | 68 42 72 65 61 73 74 32 | Touc|hBreast2|
|00001af0| 45 0d 20 20 65 6c 73 65 | 20 69 66 20 47 69 72 6c |E. else| if Girl|
|00001b00| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 54 6f | = 2 the|n. To|
|00001b10| 75 63 68 42 72 65 61 73 | 74 32 0d 20 20 65 6c 73 |uchBreas|t2. els|
|00001b20| 65 20 69 66 20 47 69 72 | 6c 20 3d 20 33 20 74 68 |e if Gir|l = 3 th|
|00001b30| 65 6e 0d 20 20 20 20 54 | 6f 75 63 68 42 72 65 61 |en. T|ouchBrea|
|00001b40| 73 74 32 41 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |st2A. e|lse if G|
|00001b50| 69 72 6c 20 3d 20 34 20 | 74 68 65 6e 0d 20 20 20 |irl = 4 |then. |
|00001b60| 20 54 6f 75 63 68 42 72 | 65 61 73 74 32 43 0d 20 | TouchBr|east2C. |
|00001b70| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 44 54 6f 75 | end if.|end DTou|
|00001b80| 63 68 42 72 65 61 73 74 | 32 0d 0d 6f 6e 20 44 54 |chBreast|2..on DT|
|00001b90| 6f 75 63 68 43 72 6f 74 | 63 68 0d 20 20 67 6c 6f |ouchCrot|ch. glo|
|00001ba0| 62 61 6c 20 47 69 72 6c | 0d 20 20 69 66 20 47 69 |bal Girl|. if Gi|
|00001bb0| 72 6c 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 1 t|hen. |
|00001bc0| 54 6f 75 63 68 43 72 6f | 74 63 68 45 0d 20 20 65 |TouchCro|tchE. e|
|00001bd0| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|00001be0| 74 68 65 6e 0d 20 20 20 | 20 54 6f 75 63 68 43 72 |then. | TouchCr|
|00001bf0| 6f 74 63 68 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |otch. e|lse if G|
|00001c00| 69 72 6c 20 3d 20 33 20 | 74 68 65 6e 0d 20 20 20 |irl = 3 |then. |
|00001c10| 20 54 6f 75 63 68 43 72 | 6f 74 63 68 41 0d 20 20 | TouchCr|otchA. |
|00001c20| 65 6c 73 65 20 69 66 20 | 47 69 72 6c 20 3d 20 34 |else if |Girl = 4|
|00001c30| 20 74 68 65 6e 0d 20 20 | 20 20 54 6f 75 63 68 43 | then. | TouchC|
|00001c40| 72 6f 74 63 68 43 0d 20 | 20 65 6e 64 20 69 66 0d |rotchC. | end if.|
|00001c50| 65 6e 64 20 44 54 6f 75 | 63 68 43 72 6f 74 63 68 |end DTou|chCrotch|
|00001c60| 0d 0d 6f 6e 20 44 54 6f | 75 63 68 42 65 68 69 6e |..on DTo|uchBehin|
|00001c70| 64 0d 20 20 67 6c 6f 62 | 61 6c 20 47 69 72 6c 0d |d. glob|al Girl.|
|00001c80| 20 20 69 66 20 47 69 72 | 6c 20 3d 20 31 20 74 68 | if Gir|l = 1 th|
|00001c90| 65 6e 0d 20 20 20 20 54 | 6f 75 63 68 42 65 68 69 |en. T|ouchBehi|
|00001ca0| 6e 64 45 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |ndE. el|se if Gi|
|00001cb0| 72 6c 20 3d 20 32 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 2 t|hen. |
|00001cc0| 54 6f 75 63 68 42 65 68 | 69 6e 64 0d 20 20 65 6c |TouchBeh|ind. el|
|00001cd0| 73 65 20 69 66 20 47 69 | 72 6c 20 3d 20 33 20 74 |se if Gi|rl = 3 t|
|00001ce0| 68 65 6e 0d 20 20 20 20 | 54 6f 75 63 68 42 65 68 |hen. |TouchBeh|
|00001cf0| 69 6e 64 41 0d 20 20 65 | 6c 73 65 20 69 66 20 47 |indA. e|lse if G|
|00001d00| 69 72 6c 20 3d 20 34 20 | 74 68 65 6e 0d 20 20 20 |irl = 4 |then. |
|00001d10| 20 54 6f 75 63 68 42 65 | 68 69 6e 64 43 0d 20 20 | TouchBe|hindC. |
|00001d20| 65 6e 64 20 69 66 0d 65 | 6e 64 20 44 54 6f 75 63 |end if.e|nd DTouc|
|00001d30| 68 42 65 68 69 6e 64 0d | 0d 6f 6e 20 44 4f 66 66 |hBehind.|.on DOff|
|00001d40| 42 6f 74 74 6f 6d 42 61 | 63 6b 0d 20 20 67 6c 6f |BottomBa|ck. glo|
|00001d50| 62 61 6c 20 47 69 72 6c | 0d 20 20 69 66 20 47 69 |bal Girl|. if Gi|
|00001d60| 72 6c 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 1 t|hen. |
|00001d70| 4f 66 66 42 6f 74 74 6f | 6d 42 61 63 6b 45 0d 20 |OffBotto|mBackE. |
|00001d80| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|00001d90| 32 20 74 68 65 6e 0d 20 | 20 20 20 4f 66 66 42 6f |2 then. | OffBo|
|00001da0| 74 74 6f 6d 42 61 63 6b | 0d 20 20 65 6c 73 65 20 |ttomBack|. else |
|00001db0| 69 66 20 47 69 72 6c 20 | 3d 20 33 20 74 68 65 6e |if Girl |= 3 then|
|00001dc0| 0d 20 20 20 20 4f 66 66 | 42 6f 74 74 6f 6d 42 61 |. Off|BottomBa|
|00001dd0| 63 6b 41 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |ckA. el|se if Gi|
|00001de0| 72 6c 20 3d 20 34 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 4 t|hen. |
|00001df0| 4f 66 66 42 6f 74 74 6f | 6d 42 61 63 6b 43 0d 20 |OffBotto|mBackC. |
|00001e00| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 44 4f 66 66 | end if.|end DOff|
|00001e10| 42 6f 74 74 6f 6d 42 61 | 63 6b 0d 0d 6f 6e 20 44 |BottomBa|ck..on D|
|00001e20| 4f 66 66 42 6f 74 74 6f | 6d 46 72 6f 6e 74 0d 20 |OffBotto|mFront. |
|00001e30| 20 67 6c 6f 62 61 6c 20 | 47 69 72 6c 0d 20 20 69 | global |Girl. i|
|00001e40| 66 20 47 69 72 6c 20 3d | 20 31 20 74 68 65 6e 0d |f Girl =| 1 then.|
|00001e50| 20 20 20 20 4f 66 66 42 | 6f 74 74 6f 6d 46 72 6f | OffB|ottomFro|
|00001e60| 6e 74 45 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |ntE. el|se if Gi|
|00001e70| 72 6c 20 3d 20 32 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 2 t|hen. |
|00001e80| 4f 66 66 42 6f 74 74 6f | 6d 46 72 6f 6e 74 0d 20 |OffBotto|mFront. |
|00001e90| 20 65 6c 73 65 20 69 66 | 20 47 69 72 6c 20 3d 20 | else if| Girl = |
|00001ea0| 33 20 74 68 65 6e 0d 20 | 20 20 20 4f 66 66 42 6f |3 then. | OffBo|
|00001eb0| 74 74 6f 6d 46 72 6f 6e | 74 41 0d 20 20 65 6c 73 |ttomFron|tA. els|
|00001ec0| 65 20 69 66 20 47 69 72 | 6c 20 3d 20 34 20 74 68 |e if Gir|l = 4 th|
|00001ed0| 65 6e 0d 20 20 20 20 4f | 66 66 42 6f 74 74 6f 6d |en. O|ffBottom|
|00001ee0| 46 72 6f 6e 74 43 0d 20 | 20 65 6e 64 20 69 66 0d |FrontC. | end if.|
|00001ef0| 65 6e 64 20 44 4f 66 66 | 42 6f 74 74 6f 6d 46 72 |end DOff|BottomFr|
|00001f00| 6f 6e 74 0d 0d 6f 6e 20 | 44 4e 6f 72 6d 61 6c 0d |ont..on |DNormal.|
|00001f10| 20 20 67 6c 6f 62 61 6c | 20 47 69 72 6c 0d 20 20 | global| Girl. |
|00001f20| 69 66 20 47 69 72 6c 20 | 3d 20 31 20 74 68 65 6e |if Girl |= 1 then|
|00001f30| 0d 20 20 20 20 4e 6f 72 | 6d 61 6c 45 0d 20 20 65 |. Nor|malE. e|
|00001f40| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|00001f50| 74 68 65 6e 0d 20 20 20 | 20 4e 6f 72 6d 61 6c 0d |then. | Normal.|
|00001f60| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|00001f70| 20 33 20 74 68 65 6e 0d | 20 20 20 20 4e 6f 72 6d | 3 then.| Norm|
|00001f80| 61 6c 41 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |alA. el|se if Gi|
|00001f90| 72 6c 20 3d 20 34 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 4 t|hen. |
|00001fa0| 4e 6f 72 6d 61 6c 43 0d | 20 20 65 6e 64 20 69 66 |NormalC.| end if|
|00001fb0| 0d 65 6e 64 20 44 4e 6f | 72 6d 61 6c 0d 0d 6f 6e |.end DNo|rmal..on|
|00001fc0| 20 44 47 69 72 6c 54 6f | 70 46 61 63 65 0d 20 20 | DGirlTo|pFace. |
|00001fd0| 67 6c 6f 62 61 6c 20 47 | 69 72 6c 0d 20 20 69 66 |global G|irl. if|
|00001fe0| 20 47 69 72 6c 20 3d 20 | 31 20 74 68 65 6e 0d 20 | Girl = |1 then. |
|00001ff0| 20 20 20 47 69 72 6c 54 | 6f 70 46 61 63 65 45 0d | GirlT|opFaceE.|
|00002000| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|00002010| 20 32 20 74 68 65 6e 0d | 20 20 20 20 47 69 72 6c | 2 then.| Girl|
|00002020| 54 6f 70 46 61 63 65 0d | 20 20 65 6c 73 65 20 69 |TopFace.| else i|
|00002030| 66 20 47 69 72 6c 20 3d | 20 33 20 74 68 65 6e 0d |f Girl =| 3 then.|
|00002040| 20 20 20 20 47 69 72 6c | 54 6f 70 46 61 63 65 41 | Girl|TopFaceA|
|00002050| 0d 20 20 65 6c 73 65 20 | 69 66 20 47 69 72 6c 20 |. else |if Girl |
|00002060| 3d 20 34 20 74 68 65 6e | 0d 20 20 20 20 47 69 72 |= 4 then|. Gir|
|00002070| 6c 54 6f 70 46 61 63 65 | 43 0d 20 20 65 6e 64 20 |lTopFace|C. end |
|00002080| 69 66 0d 65 6e 64 20 44 | 47 69 72 6c 54 6f 70 46 |if.end D|GirlTopF|
|00002090| 61 63 65 0d 0d 6f 6e 20 | 44 42 65 68 69 6e 64 0d |ace..on |DBehind.|
|000020a0| 20 20 67 6c 6f 62 61 6c | 20 47 69 72 6c 0d 20 20 | global| Girl. |
|000020b0| 69 66 20 47 69 72 6c 20 | 3d 20 31 20 74 68 65 6e |if Girl |= 1 then|
|000020c0| 0d 20 20 20 20 42 65 68 | 69 6e 64 45 0d 20 20 65 |. Beh|indE. e|
|000020d0| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 32 20 |lse if G|irl = 2 |
|000020e0| 74 68 65 6e 0d 20 20 20 | 20 42 65 68 69 6e 64 0d |then. | Behind.|
|000020f0| 20 20 65 6c 73 65 20 69 | 66 20 47 69 72 6c 20 3d | else i|f Girl =|
|00002100| 20 33 20 74 68 65 6e 0d | 20 20 20 20 42 65 68 69 | 3 then.| Behi|
|00002110| 6e 64 41 0d 20 20 65 6c | 73 65 20 69 66 20 47 69 |ndA. el|se if Gi|
|00002120| 72 6c 20 3d 20 34 20 74 | 68 65 6e 0d 20 20 20 20 |rl = 4 t|hen. |
|00002130| 42 65 68 69 6e 64 43 0d | 20 20 65 6e 64 20 69 66 |BehindC.| end if|
|00002140| 0d 65 6e 64 20 44 42 65 | 68 69 6e 64 0d 0d 6f 6e |.end DBe|hind..on|
|00002150| 20 44 43 75 73 74 6f 6d | 0d 20 20 67 6c 6f 62 61 | DCustom|. globa|
|00002160| 6c 20 47 69 72 6c 0d 20 | 20 69 66 20 47 69 72 6c |l Girl. | if Girl|
|00002170| 20 3d 20 31 20 74 68 65 | 6e 0d 20 20 20 20 43 75 | = 1 the|n. Cu|
|00002180| 73 74 6f 6d 45 0d 20 20 | 65 6c 73 65 20 69 66 20 |stomE. |else if |
|00002190| 47 69 72 6c 20 3d 20 32 | 20 74 68 65 6e 0d 20 20 |Girl = 2| then. |
|000021a0| 20 20 43 75 73 74 6f 6d | 0d 20 20 65 6c 73 65 20 | Custom|. else |
|000021b0| 69 66 20 47 69 72 6c 20 | 3d 20 33 20 74 68 65 6e |if Girl |= 3 then|
|000021c0| 0d 20 20 20 20 43 75 73 | 74 6f 6d 41 0d 20 20 65 |. Cus|tomA. e|
|000021d0| 6c 73 65 20 69 66 20 47 | 69 72 6c 20 3d 20 34 20 |lse if G|irl = 4 |
|000021e0| 74 68 65 6e 0d 20 20 20 | 20 43 75 73 74 6f 6d 43 |then. | CustomC|
|000021f0| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 44 43 |. end i|f.end DC|
|00002200| 75 73 74 6f 6d 0d 0d 0d | 6f 6e 20 49 6e 74 65 72 |ustom...|on Inter|
|00002210| 76 61 6c 73 0d 20 20 67 | 6c 6f 62 61 6c 20 6d 45 |vals. g|lobal mE|
|00002220| 6e 64 2c 20 6d 53 74 61 | 72 74 2c 20 6d 46 72 61 |nd, mSta|rt, mFra|
|00002230| 6d 65 73 0d 20 20 70 75 | 74 20 6d 45 6e 64 2d 6d |mes. pu|t mEnd-m|
|00002240| 53 74 61 72 74 20 69 6e | 74 6f 20 6d 46 72 61 6d |Start in|to mFram|
|00002250| 65 73 0d 20 20 70 75 74 | 20 6d 46 72 61 6d 65 73 |es. put| mFrames|
|00002260| 2f 31 30 20 69 6e 74 6f | 20 6d 46 72 61 6d 65 73 |/10 into| mFrames|
|00002270| 0d 65 6e 64 20 49 6e 74 | 65 72 76 61 6c 73 0d 0d |.end Int|ervals..|
|00002280| 6f 6e 20 70 6c 61 79 57 | 61 69 74 73 0d 20 20 67 |on playW|aits. g|
|00002290| 6c 6f 62 61 6c 20 6e 6f | 50 6c 61 79 0d 20 20 70 |lobal no|Play. p|
|000022a0| 75 74 20 4e 6f 70 6c 61 | 79 20 2b 20 31 20 69 6e |ut Nopla|y + 1 in|
|000022b0| 74 6f 20 4e 6f 70 6c 61 | 79 0d 20 20 69 66 20 6e |to Nopla|y. if n|
|000022c0| 6f 50 6c 61 79 20 3c 20 | 33 20 74 68 65 6e 20 50 |oPlay < |3 then P|
|000022d0| 6c 61 79 43 6c 69 70 0d | 20 20 69 66 20 6e 6f 50 |layClip.| if noP|
|000022e0| 6c 61 79 20 3e 20 32 20 | 74 68 65 6e 20 44 65 63 |lay > 2 |then Dec|
|000022f0| 4f 72 67 0d 20 20 73 65 | 74 20 74 68 65 20 74 69 |Org. se|t the ti|
|00002300| 6d 65 72 20 74 6f 20 30 | 0d 65 6e 64 20 70 6c 61 |mer to 0|.end pla|
|00002310| 79 57 61 69 74 73 0d 0d | 6f 6e 20 70 6c 61 79 43 |yWaits..|on playC|
|00002320| 6c 69 70 0d 20 20 67 6c | 6f 62 61 6c 20 74 6f 70 |lip. gl|obal top|
|00002330| 2c 20 62 6f 74 74 6f 6d | 2c 20 6d 53 74 61 72 74 |, bottom|, mStart|
|00002340| 2c 20 6d 45 6e 64 2c 20 | 4e 6f 50 6c 61 79 2c 20 |, mEnd, |NoPlay, |
|00002350| 6f 72 67 2c 20 67 72 6f | 70 65 0d 20 20 69 66 20 |org, gro|pe. if |
|00002360| 74 6f 70 20 3d 20 31 20 | 61 6e 64 20 6e 6f 50 6c |top = 1 |and noPl|
|00002370| 61 79 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |ay = 1 t|hen. |
|00002380| 44 53 6f 6f 6e 4d 6f 6f | 64 31 0d 20 20 65 6c 73 |DSoonMoo|d1. els|
|00002390| 65 20 69 66 20 74 6f 70 | 20 3d 20 31 20 61 6e 64 |e if top| = 1 and|
|000023a0| 20 6e 6f 50 6c 61 79 20 | 3d 20 32 20 74 68 65 6e | noPlay |= 2 then|
|000023b0| 0d 20 20 20 20 44 53 6f | 6f 6e 4d 6f 6f 64 31 0d |. DSo|onMood1.|
|000023c0| 20 20 65 6c 73 65 20 69 | 66 20 74 6f 70 20 3d 20 | else i|f top = |
|000023d0| 32 20 61 6e 64 20 6e 6f | 50 6c 61 79 20 3d 20 31 |2 and no|Play = 1|
|000023e0| 20 74 68 65 6e 0d 20 20 | 20 20 44 53 6f 6f 6e 4d | then. | DSoonM|
|000023f0| 6f 6f 64 32 0d 20 20 65 | 6c 73 65 20 69 66 20 74 |ood2. e|lse if t|
|00002400| 6f 70 20 3d 20 32 20 61 | 6e 64 20 6e 6f 50 6c 61 |op = 2 a|nd noPla|
|00002410| 79 20 3d 20 32 20 74 68 | 65 6e 0d 20 20 20 20 44 |y = 2 th|en. D|
|00002420| 53 6f 6f 6e 4d 6f 6f 64 | 32 0d 20 20 65 6e 64 20 |SoonMood|2. end |
|00002430| 69 66 0d 20 20 70 75 74 | 20 36 39 20 69 6e 74 6f |if. put| 69 into|
|00002440| 20 67 72 6f 70 65 0d 20 | 20 54 6f 75 63 68 50 72 | grope. | TouchPr|
|00002450| 6f 63 0d 65 6e 64 20 70 | 6c 61 79 43 6c 69 70 0d |oc.end p|layClip.|
|00002460| 0d 6f 6e 20 44 65 63 4f | 72 67 0d 20 20 67 6c 6f |.on DecO|rg. glo|
|00002470| 62 61 6c 20 4f 72 67 2c | 20 54 6f 70 2c 20 42 6f |bal Org,| Top, Bo|
|00002480| 74 74 6f 6d 2c 20 52 6f | 74 53 74 61 74 65 2c 20 |ttom, Ro|tState, |
|00002490| 53 70 6f 6f 67 65 2c 20 | 67 69 72 6c 0d 20 20 70 |Spooge, |girl. p|
|000024a0| 75 74 20 4f 72 67 20 2d | 31 20 69 6e 74 6f 20 4f |ut Org -|1 into O|
|000024b0| 72 67 0d 20 20 69 66 20 | 4f 72 67 20 3c 20 30 20 |rg. if |Org < 0 |
|000024c0| 74 68 65 6e 20 70 75 74 | 20 30 20 69 6e 74 6f 20 |then put| 0 into |
|000024d0| 4f 72 67 0d 20 20 69 66 | 20 4f 72 67 20 20 3d 20 |Org. if| Org = |
|000024e0| 34 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 34 |4 then. | put 4|
|000024f0| 20 69 6e 74 6f 20 53 70 | 6f 6f 67 65 0d 20 20 65 | into Sp|ooge. e|
|00002500| 6c 73 65 20 69 66 20 4f | 72 67 20 3d 20 33 20 74 |lse if O|rg = 3 t|
|00002510| 68 65 6e 0d 20 20 20 20 | 70 75 74 20 33 20 69 6e |hen. |put 3 in|
|00002520| 74 6f 20 53 70 6f 6f 67 | 65 0d 20 20 65 6c 73 65 |to Spoog|e. else|
|00002530| 20 69 66 20 4f 72 67 20 | 3d 20 32 20 74 68 65 6e | if Org |= 2 then|
|00002540| 0d 20 20 20 20 70 75 74 | 20 32 20 69 6e 74 6f 20 |. put| 2 into |
|00002550| 53 70 6f 6f 67 65 0d 20 | 20 20 20 70 75 74 20 31 |Spooge. | put 1|
|00002560| 20 69 6e 74 6f 20 42 6f | 74 74 6f 6d 0d 20 20 20 | into Bo|ttom. |
|00002570| 20 44 72 65 73 73 52 6f | 62 6f 0d 20 20 65 6c 73 | DressRo|bo. els|
|00002580| 65 20 69 66 20 4f 72 67 | 20 3d 20 31 20 74 68 65 |e if Org| = 1 the|
|00002590| 6e 0d 20 20 20 20 70 75 | 74 20 31 20 69 6e 74 6f |n. pu|t 1 into|
|000025a0| 20 53 70 6f 6f 67 65 0d | 20 20 20 20 70 75 74 20 | Spooge.| put |
|000025b0| 31 20 69 6e 74 6f 20 54 | 6f 70 0d 20 20 20 20 44 |1 into T|op. D|
|000025c0| 72 65 73 73 52 6f 62 6f | 0d 20 20 65 6e 64 20 69 |ressRobo|. end i|
|000025d0| 66 0d 20 20 73 65 74 20 | 74 68 65 20 74 69 6d 65 |f. set |the time|
|000025e0| 72 20 74 6f 20 30 0d 20 | 20 44 6f 77 6e 47 69 72 |r to 0. | DownGir|
|000025f0| 6c 0d 20 20 44 6f 77 6e | 47 75 79 0d 20 20 54 61 |l. Down|Guy. Ta|
|00002600| 64 4d 6f 76 65 0d 65 6e | 64 20 44 65 63 4f 72 67 |dMove.en|d DecOrg|
|00002610| 0d 0d 6f 6e 20 44 6f 77 | 6e 47 75 79 0d 20 20 67 |..on Dow|nGuy. g|
|00002620| 6c 6f 62 61 6c 20 53 70 | 6f 6f 67 65 0d 20 20 69 |lobal Sp|ooge. i|
|00002630| 66 20 53 70 6f 6f 67 65 | 20 3d 20 30 20 74 68 65 |f Spooge| = 0 the|
|00002640| 6e 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 70 69 |n. se|t the pi|
|00002650| 63 74 75 72 65 20 6f 66 | 20 63 61 73 74 20 42 34 |cture of| cast B4|
|00002660| 31 20 74 6f 20 74 68 65 | 20 70 69 63 74 75 72 65 |1 to the| picture|
|00002670| 20 6f 66 20 63 61 73 74 | 20 42 37 31 0d 20 20 65 | of cast| B71. e|
|00002680| 6c 73 65 20 69 66 20 53 | 70 6f 6f 67 65 20 3e 20 |lse if S|pooge > |
|00002690| 30 20 74 68 65 6e 0d 20 | 20 20 20 53 65 74 20 74 |0 then. | Set t|
|000026a0| 68 65 20 70 69 63 74 75 | 72 65 20 6f 66 20 63 61 |he pictu|re of ca|
|000026b0| 73 74 20 42 34 31 20 74 | 6f 20 74 68 65 20 70 69 |st B41 t|o the pi|
|000026c0| 63 74 75 72 65 20 6f 66 | 20 63 61 73 74 20 28 42 |cture of| cast (B|
|000026d0| 34 31 20 2b 20 73 70 6f | 6f 67 65 29 0d 20 20 65 |41 + spo|oge). e|
|000026e0| 6e 64 20 69 66 0d 65 6e | 64 20 44 6f 77 6e 47 75 |nd if.en|d DownGu|
|000026f0| 79 0d 0d 6f 6e 20 44 6f | 77 6e 47 69 72 6c 0d 20 |y..on Do|wnGirl. |
|00002700| 20 67 6c 6f 62 61 6c 20 | 4f 72 67 0d 20 20 69 66 | global |Org. if|
|00002710| 20 4f 72 67 20 3d 20 30 | 20 74 68 65 6e 0d 20 20 | Org = 0| then. |
|00002720| 20 20 73 65 74 20 74 68 | 65 20 70 69 63 74 75 72 | set th|e pictur|
|00002730| 65 20 6f 66 20 63 61 73 | 74 20 42 33 31 20 74 6f |e of cas|t B31 to|
|00002740| 20 74 68 65 20 70 69 63 | 74 75 72 65 20 6f 66 20 | the pic|ture of |
|00002750| 63 61 73 74 20 42 32 36 | 0d 20 20 65 6c 73 65 20 |cast B26|. else |
|00002760| 69 66 20 4f 72 67 20 3e | 20 30 20 74 68 65 6e 0d |if Org >| 0 then.|
|00002770| 20 20 20 20 73 65 74 20 | 74 68 65 20 70 69 63 74 | set |the pict|
|00002780| 75 72 65 20 6f 66 20 63 | 61 73 74 20 42 33 31 20 |ure of c|ast B31 |
|00002790| 74 6f 20 74 68 65 20 70 | 69 63 74 75 72 65 20 6f |to the p|icture o|
|000027a0| 66 20 63 61 73 74 20 28 | 42 33 31 2b 6f 72 67 29 |f cast (|B31+org)|
|000027b0| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 44 6f |. end i|f.end Do|
|000027c0| 77 6e 47 69 72 6c 0d 0d | 6f 6e 20 44 72 65 73 73 |wnGirl..|on Dress|
|000027d0| 52 6f 62 6f 0d 20 20 67 | 6c 6f 62 61 6c 20 42 6f |Robo. g|lobal Bo|
|000027e0| 74 74 6f 6d 2c 20 54 6f | 70 2c 20 52 6f 74 53 74 |ttom, To|p, RotSt|
|000027f0| 61 74 65 0d 20 20 69 66 | 20 42 6f 74 74 6f 6d 20 |ate. if| Bottom |
|00002800| 3d 20 31 20 74 68 65 6e | 0d 20 20 20 20 69 66 20 |= 1 then|. if |
|00002810| 52 6f 74 53 74 61 74 65 | 20 3d 20 31 20 74 68 65 |RotState| = 1 the|
|00002820| 6e 0d 20 20 20 20 20 20 | 53 65 74 20 74 68 65 20 |n. |Set the |
|00002830| 70 69 63 74 75 72 65 20 | 6f 66 20 63 61 73 74 20 |picture |of cast |
|00002840| 41 34 31 20 74 6f 20 74 | 68 65 20 70 69 63 74 75 |A41 to t|he pictu|
|00002850| 72 65 20 6f 66 20 63 61 | 73 74 20 45 34 31 0d 20 |re of ca|st E41. |
|00002860| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 53 65 | else.| Se|
|00002870| 74 20 74 68 65 20 70 69 | 63 74 75 72 65 20 6f 66 |t the pi|cture of|
|00002880| 20 63 61 73 74 20 41 34 | 31 20 74 6f 20 74 68 65 | cast A4|1 to the|
|00002890| 20 70 69 63 74 75 72 65 | 20 6f 66 20 63 61 73 74 | picture| of cast|
|000028a0| 20 45 34 36 0d 20 20 20 | 20 65 6e 64 20 69 66 0d | E46. | end if.|
|000028b0| 20 20 65 6e 64 20 69 66 | 0d 20 20 69 66 20 54 6f | end if|. if To|
|000028c0| 70 20 3d 20 31 20 74 68 | 65 6e 0d 20 20 20 20 69 |p = 1 th|en. i|
|000028d0| 66 20 52 6f 74 53 74 61 | 74 65 20 3d 20 31 20 74 |f RotSta|te = 1 t|
|000028e0| 68 65 6e 0d 20 20 20 20 | 20 20 53 65 74 20 74 68 |hen. | Set th|
|000028f0| 65 20 70 69 63 74 75 72 | 65 20 6f 66 20 63 61 73 |e pictur|e of cas|
|00002900| 74 20 41 34 31 20 74 6f | 20 74 68 65 20 70 69 63 |t A41 to| the pic|
|00002910| 74 75 72 65 20 6f 66 20 | 63 61 73 74 20 45 33 31 |ture of |cast E31|
|00002920| 0d 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |. els|e. |
|00002930| 53 65 74 20 74 68 65 20 | 70 69 63 74 75 72 65 20 |Set the |picture |
|00002940| 6f 66 20 63 61 73 74 20 | 41 34 31 20 74 6f 20 74 |of cast |A41 to t|
|00002950| 68 65 20 70 69 63 74 75 | 72 65 20 6f 66 20 63 61 |he pictu|re of ca|
|00002960| 73 74 20 45 33 36 0d 20 | 20 20 20 65 6e 64 20 69 |st E36. | end i|
|00002970| 66 0d 20 20 65 6e 64 20 | 69 66 0d 65 6e 64 20 44 |f. end |if.end D|
|00002980| 72 65 73 73 52 6f 62 6f | 0d 0d 0d 2d 2d 20 5f 5f |ressRobo|...-- __|
|00002990| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000029c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 0d 2d |________|______.-|
|000029d0| 2d 20 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |- | | |
|000029e0| 20 20 20 20 20 43 6f 64 | 65 20 66 6f 72 20 50 6c | Cod|e for Pl|
|000029f0| 61 79 69 6e 67 20 51 75 | 69 63 6b 53 6c 69 6d 65 |aying Qu|ickSlime|
|00002a00| aa 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002a10| 20 7c 0d 2d 2d 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | |.-- --|--------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a50| 2d 2d 2d 2d 2d 2d 0d 6f | 6e 20 58 56 61 74 6f 72 |------.o|n XVator|
|00002a60| 0d 20 20 67 6c 6f 62 61 | 6c 20 6d 45 6e 64 2c 20 |. globa|l mEnd, |
|00002a70| 6d 53 74 61 72 74 0d 20 | 20 70 75 74 20 36 34 30 |mStart. | put 640|
|00002a80| 20 69 6e 74 6f 20 6d 53 | 74 61 72 74 0d 20 20 73 | into mS|tart. s|
|00002a90| 65 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |et the l|ocH of s|
|00002aa0| 70 72 69 74 65 20 31 38 | 20 74 6f 20 35 37 35 0d |prite 18| to 575.|
|00002ab0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 56 20 6f | set th|e locV o|
|00002ac0| 66 20 73 70 72 69 74 65 | 20 31 38 20 74 6f 20 34 |f sprite| 18 to 4|
|00002ad0| 32 36 0d 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |26. set| the vis|
|00002ae0| 69 62 69 6c 69 74 79 20 | 6f 66 20 73 70 72 69 74 |ibility |of sprit|
|00002af0| 65 20 31 20 74 6f 20 31 | 0d 20 20 73 65 74 20 74 |e 1 to 1|. set t|
|00002b00| 68 65 20 6d 6f 76 69 65 | 72 61 74 65 20 6f 66 20 |he movie|rate of |
|00002b10| 73 70 72 69 74 65 20 31 | 20 74 6f 20 31 0d 20 20 |sprite 1| to 1. |
|00002b20| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 74 68 65 |repeat w|hile the|
|00002b30| 20 6d 6f 76 69 65 74 69 | 6d 65 20 6f 66 20 73 70 | movieti|me of sp|
|00002b40| 72 69 74 65 20 31 20 3c | 20 6d 45 6e 64 0d 20 20 |rite 1 <| mEnd. |
|00002b50| 20 20 75 70 64 61 74 65 | 53 74 61 67 65 0d 20 20 | update|Stage. |
|00002b60| 20 20 69 66 20 74 68 65 | 20 6d 6f 76 69 65 74 69 | if the| movieti|
|00002b70| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 31 20 3e |me of sp|rite 1 >|
|00002b80| 20 6d 53 74 61 72 74 20 | 74 68 65 6e 20 55 70 64 | mStart |then Upd|
|00002b90| 61 74 65 4c 6f 63 0d 20 | 20 65 6e 64 20 72 65 70 |ateLoc. | end rep|
|00002ba0| 65 61 74 0d 20 20 73 65 | 74 20 74 68 65 20 6d 6f |eat. se|t the mo|
|00002bb0| 76 69 65 74 69 6d 65 20 | 6f 66 20 73 70 72 69 74 |vietime |of sprit|
|00002bc0| 65 20 31 20 74 6f 20 6d | 45 6e 64 0d 20 20 73 65 |e 1 to m|End. se|
|00002bd0| 74 20 74 68 65 20 6d 6f | 76 69 65 72 61 74 65 20 |t the mo|vierate |
|00002be0| 6f 66 20 73 70 72 69 74 | 65 20 31 20 74 6f 20 30 |of sprit|e 1 to 0|
|00002bf0| 0d 65 6e 64 20 58 56 61 | 74 6f 72 0d 0d 6f 6e 20 |.end XVa|tor..on |
|00002c00| 45 78 69 74 52 6f 6f 6d | 0d 20 20 67 6c 6f 62 61 |ExitRoom|. globa|
|00002c10| 6c 20 6d 53 74 61 72 74 | 2c 20 44 50 4f 53 2c 20 |l mStart|, DPOS, |
|00002c20| 6d 65 6e 64 0d 20 20 70 | 75 74 20 31 32 35 35 20 |mend. p|ut 1255 |
|00002c30| 69 6e 74 6f 20 6d 53 74 | 61 72 74 0d 20 20 70 75 |into mSt|art. pu|
|00002c40| 74 20 35 30 39 33 20 69 | 6e 74 6f 20 6d 45 6e 64 |t 5093 i|nto mEnd|
|00002c50| 0d 20 20 73 65 74 20 74 | 68 65 20 6d 6f 76 69 65 |. set t|he movie|
|00002c60| 72 61 74 65 20 6f 66 20 | 73 70 72 69 74 65 20 31 |rate of |sprite 1|
|00002c70| 20 74 6f 20 31 0d 20 20 | 72 65 70 65 61 74 20 77 | to 1. |repeat w|
|00002c80| 68 69 6c 65 20 74 68 65 | 20 6d 6f 76 69 65 74 69 |hile the| movieti|
|00002c90| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 31 20 3c |me of sp|rite 1 <|
|00002ca0| 20 6d 45 6e 64 0d 20 20 | 20 20 75 70 64 61 74 65 | mEnd. | update|
|00002cb0| 53 74 61 67 65 0d 20 20 | 20 20 69 66 20 74 68 65 |Stage. | if the|
|00002cc0| 20 6d 6f 76 69 65 74 69 | 6d 65 20 6f 66 20 73 70 | movieti|me of sp|
|00002cd0| 72 69 74 65 20 31 20 3e | 20 6d 53 74 61 72 74 20 |rite 1 >| mStart |
|00002ce0| 74 68 65 6e 20 44 6f 74 | 4d 6f 76 65 4f 75 74 0d |then Dot|MoveOut.|
|00002cf0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 73 | end re|peat. s|
|00002d00| 65 74 20 74 68 65 20 6d | 6f 76 69 65 74 69 6d 65 |et the m|ovietime|
|00002d10| 20 6f 66 20 73 70 72 69 | 74 65 20 31 20 74 6f 20 | of spri|te 1 to |
|00002d20| 6d 45 6e 64 0d 20 20 73 | 65 74 20 74 68 65 20 6d |mEnd. s|et the m|
|00002d30| 6f 76 69 65 72 61 74 65 | 20 6f 66 20 73 70 72 69 |ovierate| of spri|
|00002d40| 74 65 20 31 20 74 6f 20 | 30 0d 65 6e 64 20 45 78 |te 1 to |0.end Ex|
|00002d50| 69 74 52 6f 6f 6d 0d 0d | 6f 6e 20 4d 61 69 6e 0d |itRoom..|on Main.|
|00002d60| 20 20 67 6c 6f 62 61 6c | 20 6d 45 6e 64 2c 20 6d | global| mEnd, m|
|00002d70| 53 74 61 72 74 2c 20 44 | 50 4f 53 0d 20 20 70 75 |Start, D|POS. pu|
|00002d80| 74 20 30 20 69 6e 74 6f | 20 44 50 4f 53 0d 20 20 |t 0 into| DPOS. |
|00002d90| 70 75 74 20 74 68 65 20 | 6d 6f 76 69 65 74 69 6d |put the |movietim|
|00002da0| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 20 69 6e |e of spr|ite 1 in|
|00002db0| 74 6f 20 6d 53 74 61 72 | 74 0d 20 20 73 65 74 20 |to mStar|t. set |
|00002dc0| 74 68 65 20 76 69 73 69 | 62 69 6c 69 74 79 20 6f |the visi|bility o|
|00002dd0| 66 20 73 70 72 69 74 65 | 20 31 20 74 6f 20 31 0d |f sprite| 1 to 1.|
|00002de0| 20 20 73 65 74 20 74 68 | 65 20 6d 6f 76 69 65 72 | set th|e movier|
|00002df0| 61 74 65 20 6f 66 20 73 | 70 72 69 74 65 20 31 20 |ate of s|prite 1 |
|00002e00| 74 6f 20 31 0d 20 20 72 | 65 70 65 61 74 20 77 68 |to 1. r|epeat wh|
|00002e10| 69 6c 65 20 74 68 65 20 | 6d 6f 76 69 65 74 69 6d |ile the |movietim|
|00002e20| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 20 3c 20 |e of spr|ite 1 < |
|00002e30| 6d 45 6e 64 0d 20 20 20 | 20 75 70 64 61 74 65 53 |mEnd. | updateS|
|00002e40| 74 61 67 65 0d 20 20 20 | 20 69 66 20 74 68 65 20 |tage. | if the |
|00002e50| 6d 6f 76 69 65 74 69 6d | 65 20 6f 66 20 73 70 72 |movietim|e of spr|
|00002e60| 69 74 65 20 31 20 3e 20 | 6d 53 74 61 72 74 20 74 |ite 1 > |mStart t|
|00002e70| 68 65 6e 20 44 6f 74 4d | 6f 76 65 0d 20 20 65 6e |hen DotM|ove. en|
|00002e80| 64 20 72 65 70 65 61 74 | 0d 20 20 73 65 74 20 74 |d repeat|. set t|
|00002e90| 68 65 20 6d 6f 76 69 65 | 74 69 6d 65 20 6f 66 20 |he movie|time of |
|00002ea0| 73 70 72 69 74 65 20 31 | 20 74 6f 20 6d 45 6e 64 |sprite 1| to mEnd|
|00002eb0| 0d 20 20 73 65 74 20 74 | 68 65 20 6d 6f 76 69 65 |. set t|he movie|
|00002ec0| 72 61 74 65 20 6f 66 20 | 73 70 72 69 74 65 20 31 |rate of |sprite 1|
|00002ed0| 20 74 6f 20 30 0d 65 6e | 64 20 4d 61 69 6e 0d 0d | to 0.en|d Main..|
|00002ee0| 6f 6e 20 4d 61 69 6e 32 | 20 0d 20 20 73 65 74 20 |on Main2| . set |
|00002ef0| 74 68 65 20 6d 6f 76 69 | 65 54 69 6d 65 20 6f 66 |the movi|eTime of|
|00002f00| 20 73 70 72 69 74 65 20 | 31 20 74 6f 20 31 32 36 | sprite |1 to 126|
|00002f10| 30 33 0d 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |03. set| the vis|
|00002f20| 69 62 69 6c 69 74 79 20 | 6f 66 20 73 70 72 69 74 |ibility |of sprit|
|00002f30| 65 20 31 20 74 6f 20 31 | 0d 20 20 73 65 74 20 74 |e 1 to 1|. set t|
|00002f40| 68 65 20 6d 6f 76 69 65 | 52 61 74 65 20 6f 66 20 |he movie|Rate of |
|00002f50| 73 70 72 69 74 65 20 31 | 20 74 6f 20 30 0d 65 6e |sprite 1| to 0.en|
|00002f60| 64 20 4d 61 69 6e 32 0d | 0d 6f 6e 20 4d 61 69 6e |d Main2.|.on Main|
|00002f70| 32 2e 32 0d 20 20 67 6c | 6f 62 61 6c 20 6d 53 74 |2.2. gl|obal mSt|
|00002f80| 61 72 74 2c 20 44 50 4f | 53 0d 20 20 70 75 74 20 |art, DPO|S. put |
|00002f90| 30 20 69 6e 74 6f 20 44 | 50 4f 53 0d 20 20 73 65 |0 into D|POS. se|
|00002fa0| 74 20 74 68 65 20 6d 6f | 76 69 65 52 61 74 65 20 |t the mo|vieRate |
|00002fb0| 6f 66 20 73 70 72 69 74 | 65 20 31 20 74 6f 20 31 |of sprit|e 1 to 1|
|00002fc0| 0d 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |. repea|t while |
|00002fd0| 74 68 65 20 6d 6f 76 69 | 65 74 69 6d 65 20 6f 66 |the movi|etime of|
|00002fe0| 20 53 70 72 69 74 65 20 | 31 20 3c 20 31 32 39 35 | Sprite |1 < 1295|
|00002ff0| 37 0d 20 20 20 20 75 70 | 64 61 74 65 53 74 61 67 |7. up|dateStag|
|00003000| 65 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |e. end |repeat. |
|00003010| 20 73 65 74 20 74 68 65 | 20 6d 6f 76 69 65 74 69 | set the| movieti|
|00003020| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 31 20 74 |me of sp|rite 1 t|
|00003030| 6f 20 34 34 39 35 0d 20 | 20 70 75 74 20 74 68 65 |o 4495. | put the|
|00003040| 20 6d 6f 76 69 65 74 69 | 6d 65 20 6f 66 20 73 70 | movieti|me of sp|
|00003050| 72 69 74 65 20 31 20 69 | 6e 74 6f 20 6d 53 74 61 |rite 1 i|nto mSta|
|00003060| 72 74 0d 20 20 73 65 74 | 20 74 68 65 20 6d 6f 76 |rt. set| the mov|
|00003070| 69 65 72 61 74 65 20 6f | 66 20 73 70 72 69 74 65 |ierate o|f sprite|
|00003080| 20 31 20 74 6f 20 31 0d | 20 20 72 65 70 65 61 74 | 1 to 1.| repeat|
|00003090| 20 77 68 69 6c 65 20 74 | 68 65 20 6d 6f 76 69 65 | while t|he movie|
|000030a0| 74 69 6d 65 20 6f 66 20 | 73 70 72 69 74 65 20 31 |time of |sprite 1|
|000030b0| 20 3c 20 35 30 39 35 0d | 20 20 20 20 75 70 64 61 | < 5095.| upda|
|000030c0| 74 65 53 74 61 67 65 0d | 20 20 20 20 69 66 20 74 |teStage.| if t|
|000030d0| 68 65 20 6d 6f 76 69 65 | 74 69 6d 65 20 6f 66 20 |he movie|time of |
|000030e0| 73 70 72 69 74 65 20 31 | 20 3e 20 6d 53 74 61 72 |sprite 1| > mStar|
|000030f0| 74 20 74 68 65 6e 20 44 | 6f 74 4d 6f 76 65 4f 75 |t then D|otMoveOu|
|00003100| 74 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |t. end |repeat. |
|00003110| 20 73 65 74 20 74 68 65 | 20 6d 6f 76 69 65 74 69 | set the| movieti|
|00003120| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 31 20 74 |me of sp|rite 1 t|
|00003130| 6f 20 35 30 39 35 0d 20 | 20 73 65 74 20 74 68 65 |o 5095. | set the|
|00003140| 20 6d 6f 76 69 65 72 61 | 74 65 20 6f 66 20 73 70 | moviera|te of sp|
|00003150| 72 69 74 65 20 31 20 74 | 6f 20 30 0d 65 6e 64 20 |rite 1 t|o 0.end |
|00003160| 4d 61 69 6e 32 2e 32 0d | 0d 6f 6e 20 4d 61 69 6e |Main2.2.|.on Main|
|00003170| 33 0d 20 20 4d 65 74 65 | 72 0d 20 20 4d 6f 76 65 |3. Mete|r. Move|
|00003180| 4d 65 74 65 72 0d 20 20 | 75 70 64 61 74 65 53 74 |Meter. |updateSt|
|00003190| 61 67 65 0d 20 20 43 68 | 65 63 6b 52 6f 6c 6c 0d |age. Ch|eckRoll.|
|000031a0| 65 6e 64 20 4d 61 69 6e | 33 0d 0d 6f 6e 20 50 61 |end Main|3..on Pa|
|000031b0| 6e 69 63 53 63 72 65 65 | 6e 0d 20 20 69 66 20 74 |nicScree|n. if t|
|000031c0| 68 65 20 6d 61 63 68 69 | 6e 65 54 79 70 65 20 3d |he machi|neType =|
|000031d0| 20 32 35 36 20 74 68 65 | 6e 0d 20 20 20 20 67 6f | 256 the|n. go|
|000031e0| 20 22 49 42 4d 2d 50 61 | 6e 69 63 22 0d 20 20 65 | "IBM-Pa|nic". e|
|000031f0| 6c 73 65 0d 20 20 20 20 | 67 6f 20 22 4d 61 63 2d |lse. |go "Mac-|
|00003200| 50 61 6e 69 63 22 0d 20 | 20 65 6e 64 20 69 66 0d |Panic". | end if.|
|00003210| 65 6e 64 20 50 61 6e 69 | 63 53 63 72 65 65 6e 0d |end Pani|cScreen.|
|00003220| 0d 6f 6e 20 52 6f 74 47 | 69 72 6c 0d 20 20 67 6c |.on RotG|irl. gl|
|00003230| 6f 62 61 6c 20 44 6f 52 | 6f 74 2c 20 72 2c 20 72 |obal DoR|ot, r, r|
|00003240| 72 0d 20 20 70 75 74 20 | 30 20 69 6e 74 6f 20 6d |r. put |0 into m|
|00003250| 6f 76 57 61 73 4f 6e 0d | 20 20 69 66 20 74 68 65 |ovWasOn.| if the|
|00003260| 20 6d 6f 76 69 65 52 61 | 74 65 20 6f 66 20 73 70 | movieRa|te of sp|
|00003270| 72 69 74 65 20 31 20 3d | 20 31 20 74 68 65 6e 0d |rite 1 =| 1 then.|
|00003280| 20 20 20 20 70 75 74 20 | 31 20 69 6e 74 6f 20 6d | put |1 into m|
|00003290| 6f 76 57 61 73 4f 6e 0d | 20 20 20 20 73 65 74 20 |ovWasOn.| set |
|000032a0| 74 68 65 20 6d 6f 76 69 | 65 52 61 74 65 20 6f 66 |the movi|eRate of|
|000032b0| 20 73 70 72 69 74 65 20 | 31 20 74 6f 20 30 0d 20 | sprite |1 to 0. |
|000032c0| 20 65 6e 64 20 69 66 0d | 20 20 69 66 20 44 6f 52 | end if.| if DoR|
|000032d0| 6f 74 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |ot = 1 t|hen. |
|000032e0| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 72 20 3c |repeat w|hile r <|
|000032f0| 20 72 72 0d 20 20 20 20 | 20 20 70 75 74 20 72 20 | rr. | put r |
|00003300| 2b 20 31 20 69 6e 74 6f | 20 72 0d 20 20 20 20 20 |+ 1 into| r. |
|00003310| 20 53 65 74 20 74 68 65 | 20 63 61 73 74 4e 75 6d | Set the| castNum|
|00003320| 20 6f 66 20 73 70 72 69 | 74 65 20 36 20 74 6f 20 | of spri|te 6 to |
|00003330| 72 0d 20 20 20 20 20 20 | 70 75 74 20 74 68 65 20 |r. |put the |
|00003340| 74 69 6d 65 72 20 69 6e | 74 6f 20 78 0d 20 20 20 |timer in|to x. |
|00003350| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 | repea|t while |
|00003360| 74 68 65 20 74 69 6d 65 | 72 20 3c 20 78 2b 33 0d |the time|r < x+3.|
|00003370| 20 20 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 | en|d repeat|
|00003380| 0d 20 20 20 20 20 20 75 | 70 64 61 74 65 53 74 61 |. u|pdateSta|
|00003390| 67 65 0d 20 20 20 20 65 | 6e 64 20 72 65 70 65 61 |ge. e|nd repea|
|000033a0| 74 0d 20 20 65 6c 73 65 | 20 69 66 20 44 6f 52 6f |t. else| if DoRo|
|000033b0| 74 20 3d 20 32 20 74 68 | 65 6e 0d 20 20 20 20 72 |t = 2 th|en. r|
|000033c0| 65 70 65 61 74 20 77 68 | 69 6c 65 20 72 20 3e 20 |epeat wh|ile r > |
|000033d0| 72 72 0d 20 20 20 20 20 | 20 70 75 74 20 72 20 2d |rr. | put r -|
|000033e0| 20 31 20 69 6e 74 6f 20 | 72 0d 20 20 20 20 20 20 | 1 into |r. |
|000033f0| 53 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |Set the |castNum |
|00003400| 6f 66 20 73 70 72 69 74 | 65 20 36 20 74 6f 20 72 |of sprit|e 6 to r|
|00003410| 0d 20 20 20 20 20 20 70 | 75 74 20 74 68 65 20 74 |. p|ut the t|
|00003420| 69 6d 65 72 20 69 6e 74 | 6f 20 78 0d 20 20 20 20 |imer int|o x. |
|00003430| 20 20 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 74 | repeat| while t|
|00003440| 68 65 20 74 69 6d 65 72 | 20 3c 20 78 2b 33 0d 20 |he timer| < x+3. |
|00003450| 20 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d | end| repeat.|
|00003460| 20 20 20 20 20 20 75 70 | 64 61 74 65 53 74 61 67 | up|dateStag|
|00003470| 65 0d 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |e. en|d repeat|
|00003480| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 70 75 74 20 |. end i|f. put |
|00003490| 30 20 69 6e 74 6f 20 44 | 6f 52 6f 74 0d 20 20 53 |0 into D|oRot. S|
|000034a0| 65 74 20 74 68 65 20 70 | 69 63 74 75 72 65 20 6f |et the p|icture o|
|000034b0| 66 20 63 61 73 74 20 41 | 34 31 20 74 6f 20 74 68 |f cast A|41 to th|
|000034c0| 65 20 70 69 63 74 75 72 | 65 20 6f 66 20 63 61 73 |e pictur|e of cas|
|000034d0| 74 20 72 0d 20 20 69 66 | 20 6d 6f 76 57 61 73 4f |t r. if| movWasO|
|000034e0| 6e 20 3d 20 31 20 74 68 | 65 6e 0d 20 20 20 20 73 |n = 1 th|en. s|
|000034f0| 65 74 20 74 68 65 20 6d | 6f 76 69 65 52 61 74 65 |et the m|ovieRate|
|00003500| 20 6f 66 20 73 70 72 69 | 74 65 20 31 20 74 6f 20 | of spri|te 1 to |
|00003510| 31 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 73 65 74 |1. end |if. set|
|00003520| 76 6f 6c 0d 20 20 54 75 | 72 6e 4f 6e 0d 65 6e 64 |vol. Tu|rnOn.end|
|00003530| 20 52 6f 74 47 69 72 6c | 0d 0d 6f 6e 20 54 75 72 | RotGirl|..on Tur|
|00003540| 6e 4f 66 66 0d 20 20 63 | 75 72 73 6f 72 20 34 0d |nOff. c|ursor 4.|
|00003550| 20 20 73 65 74 20 74 68 | 65 20 76 69 73 69 62 69 | set th|e visibi|
|00003560| 6c 69 74 79 20 6f 66 20 | 73 70 72 69 74 65 20 39 |lity of |sprite 9|
|00003570| 20 74 6f 20 30 0d 20 20 | 73 65 74 20 74 68 65 20 | to 0. |set the |
|00003580| 76 69 73 69 62 69 6c 69 | 74 79 20 6f 66 20 73 70 |visibili|ty of sp|
|00003590| 72 69 74 65 20 31 30 20 | 74 6f 20 30 0d 20 20 73 |rite 10 |to 0. s|
|000035a0| 65 74 20 74 68 65 20 76 | 69 73 69 62 69 6c 69 74 |et the v|isibilit|
|000035b0| 79 20 6f 66 20 73 70 72 | 69 74 65 20 31 31 20 74 |y of spr|ite 11 t|
|000035c0| 6f 20 30 0d 20 20 73 65 | 74 20 74 68 65 20 76 69 |o 0. se|t the vi|
|000035d0| 73 69 62 69 6c 69 74 79 | 20 6f 66 20 73 70 72 69 |sibility| of spri|
|000035e0| 74 65 20 31 32 20 74 6f | 20 30 0d 20 20 73 65 74 |te 12 to| 0. set|
|000035f0| 20 74 68 65 20 76 69 73 | 69 62 69 6c 69 74 79 20 | the vis|ibility |
|00003600| 6f 66 20 73 70 72 69 74 | 65 20 31 34 20 74 6f 20 |of sprit|e 14 to |
|00003610| 30 0d 65 6e 64 20 54 75 | 72 6e 4f 66 66 0d 0d 6f |0.end Tu|rnOff..o|
|00003620| 6e 20 54 75 72 6e 4f 6e | 0d 20 20 73 65 74 20 74 |n TurnOn|. set t|
|00003630| 68 65 20 76 69 73 69 62 | 69 6c 69 74 79 20 6f 66 |he visib|ility of|
|00003640| 20 73 70 72 69 74 65 20 | 39 20 74 6f 20 31 0d 20 | sprite |9 to 1. |
|00003650| 20 73 65 74 20 74 68 65 | 20 76 69 73 69 62 69 6c | set the| visibil|
|00003660| 69 74 79 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |ity of s|prite 10|
|00003670| 20 74 6f 20 31 0d 20 20 | 73 65 74 20 74 68 65 20 | to 1. |set the |
|00003680| 76 69 73 69 62 69 6c 69 | 74 79 20 6f 66 20 73 70 |visibili|ty of sp|
|00003690| 72 69 74 65 20 31 31 20 | 74 6f 20 31 0d 20 20 73 |rite 11 |to 1. s|
|000036a0| 65 74 20 74 68 65 20 76 | 69 73 69 62 69 6c 69 74 |et the v|isibilit|
|000036b0| 79 20 6f 66 20 73 70 72 | 69 74 65 20 31 32 20 74 |y of spr|ite 12 t|
|000036c0| 6f 20 31 0d 20 20 73 65 | 74 20 74 68 65 20 76 69 |o 1. se|t the vi|
|000036d0| 73 69 62 69 6c 69 74 79 | 20 6f 66 20 73 70 72 69 |sibility| of spri|
|000036e0| 74 65 20 31 34 20 74 6f | 20 31 0d 20 20 63 75 72 |te 14 to| 1. cur|
|000036f0| 73 6f 72 20 2d 31 0d 65 | 6e 64 20 54 75 72 6e 4f |sor -1.e|nd TurnO|
|00003700| 6e 0d 0d 0d 6f 6e 20 56 | 69 73 69 4d 6f 64 65 31 |n...on V|isiMode1|
|00003710| 0d 20 20 2d 2d 20 42 72 | 61 63 6b 65 74 20 48 65 |. -- Br|acket He|
|00003720| 61 64 0d 20 20 67 6c 6f | 62 61 6c 20 73 68 65 65 |ad. glo|bal shee|
|00003730| 70 2c 20 73 65 74 6d 65 | 74 65 72 2c 20 67 72 6f |p, setme|ter, gro|
|00003740| 70 65 0d 20 20 69 66 20 | 73 68 65 65 70 20 3d 20 |pe. if |sheep = |
|00003750| 32 20 61 6e 64 20 73 65 | 74 6d 65 74 65 72 20 3d |2 and se|tmeter =|
|00003760| 20 31 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 | 1 then.| set |
|00003770| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|00003780| 74 65 20 32 31 20 74 6f | 20 31 30 30 30 30 0d 20 |te 21 to| 10000. |
|00003790| 20 20 20 73 65 74 20 74 | 68 65 20 70 75 70 70 65 | set t|he puppe|
|000037a0| 74 20 6f 66 20 73 70 72 | 69 74 65 20 32 30 20 74 |t of spr|ite 20 t|
|000037b0| 6f 20 31 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |o 1. |set the |
|000037c0| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 32 |locH of |sprite 2|
|000037d0| 30 20 74 6f 20 36 31 34 | 0d 20 20 20 20 73 65 74 |0 to 614|. set|
|000037e0| 20 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 | the loc|V of spr|
|000037f0| 69 74 65 20 32 30 20 74 | 6f 20 32 30 36 0d 20 20 |ite 20 t|o 206. |
|00003800| 65 6c 73 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |else. | set the|
|00003810| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00003820| 32 30 20 74 6f 20 31 30 | 30 30 30 0d 20 20 20 20 |20 to 10|000. |
|00003830| 73 65 74 20 74 68 65 20 | 70 75 70 70 65 74 20 6f |set the |puppet o|
|00003840| 66 20 73 70 72 69 74 65 | 20 32 31 20 74 6f 20 31 |f sprite| 21 to 1|
|00003850| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |. set| the loc|
|00003860| 48 20 6f 66 20 73 70 72 | 69 74 65 20 32 31 20 74 |H of spr|ite 21 t|
|00003870| 6f 20 36 31 34 0d 20 20 | 20 20 73 65 74 20 74 68 |o 614. | set th|
|00003880| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|00003890| 20 32 31 20 74 6f 20 32 | 30 36 0d 20 20 65 6e 64 | 21 to 2|06. end|
|000038a0| 20 69 66 0d 20 20 75 70 | 64 61 74 65 53 74 61 67 | if. up|dateStag|
|000038b0| 65 0d 65 6e 64 20 56 69 | 73 69 4d 6f 64 65 31 0d |e.end Vi|siMode1.|
|000038c0| 0d 6f 6e 20 56 69 73 69 | 4d 6f 64 65 32 0d 20 20 |.on Visi|Mode2. |
|000038d0| 2d 2d 20 42 72 61 63 6b | 65 74 20 43 68 65 73 74 |-- Brack|et Chest|
|000038e0| 0d 20 20 67 6c 6f 62 61 | 6c 20 73 68 65 65 70 2c |. globa|l sheep,|
|000038f0| 20 73 65 74 6d 65 74 65 | 72 2c 20 67 72 6f 70 65 | setmete|r, grope|
|00003900| 0d 20 20 69 66 20 73 68 | 65 65 70 20 3d 20 32 20 |. if sh|eep = 2 |
|00003910| 61 6e 64 20 73 65 74 6d | 65 74 65 72 20 3d 20 31 |and setm|eter = 1|
|00003920| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 74 68 | then. | set th|
|00003930| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|00003940| 20 32 31 20 74 6f 20 31 | 30 30 30 30 0d 20 20 20 | 21 to 1|0000. |
|00003950| 20 73 65 74 20 74 68 65 | 20 70 75 70 70 65 74 20 | set the| puppet |
|00003960| 6f 66 20 73 70 72 69 74 | 65 20 32 30 20 74 6f 20 |of sprit|e 20 to |
|00003970| 31 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |1. se|t the lo|
|00003980| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 32 30 20 |cH of sp|rite 20 |
|00003990| 74 6f 20 36 32 39 0d 20 | 20 20 20 73 65 74 20 74 |to 629. | set t|
|000039a0| 68 65 20 6c 6f 63 56 20 | 6f 66 20 73 70 72 69 74 |he locV |of sprit|
|000039b0| 65 20 32 30 20 74 6f 20 | 32 35 30 0d 20 20 65 6c |e 20 to |250. el|
|000039c0| 73 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |se. s|et the l|
|000039d0| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 32 30 |ocH of s|prite 20|
|000039e0| 20 74 6f 20 31 30 30 30 | 30 0d 20 20 20 20 73 65 | to 1000|0. se|
|000039f0| 74 20 74 68 65 20 70 75 | 70 70 65 74 20 6f 66 20 |t the pu|ppet of |
|00003a00| 73 70 72 69 74 65 20 32 | 31 20 74 6f 20 31 0d 20 |sprite 2|1 to 1. |
|00003a10| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 48 20 | set t|he locH |
|00003a20| 6f 66 20 73 70 72 69 74 | 65 20 32 31 20 74 6f 20 |of sprit|e 21 to |
|00003a30| 36 32 39 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |629. |set the |
|00003a40| 6c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 32 |locV of |sprite 2|
|00003a50| 31 20 74 6f 20 32 35 30 | 0d 20 20 65 6e 64 20 69 |1 to 250|. end i|
|00003a60| 66 0d 20 20 75 70 64 61 | 74 65 53 74 61 67 65 0d |f. upda|teStage.|
|00003a70| 65 6e 64 20 56 69 73 69 | 4d 6f 64 65 32 0d 0d 6f |end Visi|Mode2..o|
|00003a80| 6e 20 56 69 73 69 4d 6f | 64 65 33 0d 20 20 2d 2d |n VisiMo|de3. --|
|00003a90| 20 42 72 61 63 6b 65 74 | 20 43 72 6f 74 63 68 0d | Bracket| Crotch.|
|00003aa0| 20 20 67 6c 6f 62 61 6c | 20 73 68 65 65 70 2c 20 | global| sheep, |
|00003ab0| 73 65 74 6d 65 74 65 72 | 2c 20 67 72 6f 70 65 0d |setmeter|, grope.|
|00003ac0| 20 20 69 66 20 73 68 65 | 65 70 20 3d 20 32 20 61 | if she|ep = 2 a|
|00003ad0| 6e 64 20 73 65 74 6d 65 | 74 65 72 20 3d 20 31 20 |nd setme|ter = 1 |
|00003ae0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then. | set the|
|00003af0| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00003b00| 32 31 20 74 6f 20 31 30 | 30 30 30 0d 20 20 20 20 |21 to 10|000. |
|00003b10| 73 65 74 20 74 68 65 20 | 70 75 70 70 65 74 20 6f |set the |puppet o|
|00003b20| 66 20 73 70 72 69 74 65 | 20 32 30 20 74 6f 20 31 |f sprite| 20 to 1|
|00003b30| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |. set| the loc|
|00003b40| 48 20 6f 66 20 73 70 72 | 69 74 65 20 32 30 20 74 |H of spr|ite 20 t|
|00003b50| 6f 20 36 33 31 0d 20 20 | 20 20 73 65 74 20 74 68 |o 631. | set th|
|00003b60| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|00003b70| 20 32 30 20 74 6f 20 32 | 39 33 0d 20 20 65 6c 73 | 20 to 2|93. els|
|00003b80| 65 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |e. se|t the lo|
|00003b90| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 32 30 20 |cH of sp|rite 20 |
|00003ba0| 74 6f 20 31 30 30 30 30 | 0d 20 20 20 20 73 65 74 |to 10000|. set|
|00003bb0| 20 74 68 65 20 70 75 70 | 70 65 74 20 6f 66 20 73 | the pup|pet of s|
|00003bc0| 70 72 69 74 65 20 32 31 | 20 74 6f 20 31 0d 20 20 |prite 21| to 1. |
|00003bd0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 48 20 6f | set th|e locH o|
|00003be0| 66 20 73 70 72 69 74 65 | 20 32 31 20 74 6f 20 36 |f sprite| 21 to 6|
|00003bf0| 33 31 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |31. s|et the l|
|00003c00| 6f 63 56 20 6f 66 20 73 | 70 72 69 74 65 20 32 31 |ocV of s|prite 21|
|00003c10| 20 74 6f 20 32 39 33 0d | 20 20 65 6e 64 20 69 66 | to 293.| end if|
|00003c20| 0d 20 20 75 70 64 61 74 | 65 53 74 61 67 65 0d 65 |. updat|eStage.e|
|00003c30| 6e 64 20 56 69 73 69 4d | 6f 64 65 33 0d 0d 2d 2d |nd VisiM|ode3..--|
|00003c40| 20 6f 74 68 65 72 20 73 | 74 75 66 66 0d 0d 2d 2d | other s|tuff..--|
|00003c50| 20 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f | _______|________|
|00003c60| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003c70| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003c80| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003c90| 5f 0d 2d 2d 20 7c 20 20 | 20 20 20 20 20 20 20 20 |_.-- | | |
|00003ca0| 20 20 20 20 20 20 20 20 | 20 20 20 43 6f 64 65 20 | | Code |
|00003cb0| 66 6f 72 20 57 61 6c 6b | 20 54 68 72 75 20 20 20 |for Walk| Thru |
|00003cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cd0| 20 20 20 20 7c 0d 2d 2d | 20 2d 2d 2d 2d 2d 2d 2d | |.--| -------|
|00003ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 4e 61 76 |--------|-.on Nav|
|00003d20| 69 67 61 74 65 0d 20 20 | 67 6c 6f 62 61 6c 20 4c |igate. |global L|
|00003d30| 6f 63 61 74 69 6f 6e 2c | 20 44 69 72 65 63 74 69 |ocation,| Directi|
|00003d40| 6f 6e 2c 20 4d 6f 76 65 | 6d 65 6e 74 2c 20 6d 53 |on, Move|ment, mS|
|00003d50| 74 61 72 74 2c 20 6d 45 | 6e 64 0d 20 20 69 66 20 |tart, mE|nd. if |
|00003d60| 4c 6f 63 61 74 69 6f 6e | 20 3d 20 30 20 74 68 65 |Location| = 0 the|
|00003d70| 6e 0d 20 20 20 20 69 66 | 20 4d 6f 76 65 6d 65 6e |n. if| Movemen|
|00003d80| 74 20 3d 20 33 20 74 68 | 65 6e 0d 20 20 20 20 20 |t = 3 th|en. |
|00003d90| 20 70 75 74 20 32 20 69 | 6e 74 6f 20 44 69 72 65 | put 2 i|nto Dire|
|00003da0| 63 74 69 6f 6e 0d 20 20 | 20 20 20 20 70 75 74 20 |ction. | put |
|00003db0| 32 30 35 30 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |2050 int|o mStart|
|00003dc0| 0d 20 20 20 20 20 20 70 | 75 74 20 32 35 31 37 20 |. p|ut 2517 |
|00003dd0| 69 6e 74 6f 20 6d 45 6e | 64 0d 20 20 20 20 65 6e |into mEn|d. en|
|00003de0| 64 20 69 66 0d 20 20 20 | 20 69 66 20 4d 6f 76 65 |d if. | if Move|
|00003df0| 6d 65 6e 74 20 3d 20 34 | 20 74 68 65 6e 0d 20 20 |ment = 4| then. |
|00003e00| 20 20 20 20 70 75 74 20 | 31 20 69 6e 74 6f 20 44 | put |1 into D|
|00003e10| 69 72 65 63 74 69 6f 6e | 0d 20 20 20 20 20 20 70 |irection|. p|
|00003e20| 75 74 20 36 33 36 38 20 | 69 6e 74 6f 20 6d 53 74 |ut 6368 |into mSt|
|00003e30| 61 72 74 0d 20 20 20 20 | 20 20 70 75 74 20 36 38 |art. | put 68|
|00003e40| 33 35 20 69 6e 74 6f 20 | 6d 45 6e 64 0d 20 20 20 |35 into |mEnd. |
|00003e50| 20 65 6e 64 20 69 66 0d | 20 20 65 6e 64 20 69 66 | end if.| end if|
|00003e60| 0d 20 20 69 66 20 4c 6f | 63 61 74 69 6f 6e 20 3e |. if Lo|cation >|
|00003e70| 20 30 20 74 68 65 6e 0d | 20 20 20 20 69 66 20 4d | 0 then.| if M|
|00003e80| 6f 76 65 6d 65 6e 74 20 | 3d 20 31 20 61 6e 64 20 |ovement |= 1 and |
|00003e90| 44 69 72 65 63 74 69 6f | 6e 20 3d 20 31 20 74 68 |Directio|n = 1 th|
|00003ea0| 65 6e 0d 20 20 20 20 20 | 20 70 75 74 20 39 39 36 |en. | put 996|
|00003eb0| 35 20 69 6e 74 6f 20 6d | 53 74 61 72 74 0d 20 20 |5 into m|Start. |
|00003ec0| 20 20 20 20 70 75 74 20 | 31 30 35 35 32 20 69 6e | put |10552 in|
|00003ed0| 74 6f 20 6d 45 6e 64 0d | 20 20 20 20 65 6e 64 20 |to mEnd.| end |
|00003ee0| 69 66 20 20 20 0d 20 20 | 20 20 69 66 20 4d 6f 76 |if . | if Mov|
|00003ef0| 65 6d 65 6e 74 20 3d 20 | 31 20 61 6e 64 20 44 69 |ement = |1 and Di|
|00003f00| 72 65 63 74 69 6f 6e 20 | 3d 20 32 20 74 68 65 6e |rection |= 2 then|
|00003f10| 0d 20 20 20 20 20 20 70 | 75 74 20 35 37 30 38 20 |. p|ut 5708 |
|00003f20| 69 6e 74 6f 20 6d 53 74 | 61 72 74 0d 20 20 20 20 |into mSt|art. |
|00003f30| 20 20 70 75 74 20 36 32 | 39 35 20 69 6e 74 6f 20 | put 62|95 into |
|00003f40| 6d 45 6e 64 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |mEnd. | end if.|
|00003f50| 20 20 20 20 69 66 20 4d | 6f 76 65 6d 65 6e 74 20 | if M|ovement |
|00003f60| 3d 20 32 20 61 6e 64 20 | 44 69 72 65 63 74 69 6f |= 2 and |Directio|
|00003f70| 6e 20 3d 20 31 20 74 68 | 65 6e 0d 20 20 20 20 20 |n = 1 th|en. |
|00003f80| 20 70 75 74 20 31 31 35 | 38 33 20 69 6e 74 6f 20 | put 115|83 into |
|00003f90| 6d 53 74 61 72 74 0d 20 | 20 20 20 20 20 70 75 74 |mStart. | put|
|00003fa0| 20 31 32 33 35 30 20 69 | 6e 74 6f 20 6d 45 6e 64 | 12350 i|nto mEnd|
|00003fb0| 0d 20 20 20 20 65 6e 64 | 20 69 66 20 20 20 0d 20 |. end| if . |
|00003fc0| 20 20 20 69 66 20 4d 6f | 76 65 6d 65 6e 74 20 3d | if Mo|vement =|
|00003fd0| 20 32 20 61 6e 64 20 44 | 69 72 65 63 74 69 6f 6e | 2 and D|irection|
|00003fe0| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 2 the|n. |
|00003ff0| 70 75 74 20 31 30 36 32 | 35 20 69 6e 74 6f 20 6d |put 1062|5 into m|
|00004000| 53 74 61 72 74 0d 20 20 | 20 20 20 20 70 75 74 20 |Start. | put |
|00004010| 31 31 34 35 32 20 69 6e | 74 6f 20 6d 45 6e 64 0d |11452 in|to mEnd.|
|00004020| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 69 | end |if. i|
|00004030| 66 20 4d 6f 76 65 6d 65 | 6e 74 20 3d 20 32 20 61 |f Moveme|nt = 2 a|
|00004040| 6e 64 20 44 69 72 65 63 | 74 69 6f 6e 20 3d 20 30 |nd Direc|tion = 0|
|00004050| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 70 75 74 20 | then. | put |
|00004060| 31 32 36 30 33 20 69 6e | 74 6f 20 6d 53 74 61 72 |12603 in|to mStar|
|00004070| 74 0d 20 20 20 20 20 20 | 70 75 74 20 31 32 39 35 |t. |put 1295|
|00004080| 37 20 69 6e 74 6f 20 6d | 45 6e 64 0d 20 20 20 20 |7 into m|End. |
|00004090| 65 6e 64 20 69 66 0d 20 | 20 20 20 69 66 20 4d 6f |end if. | if Mo|
|000040a0| 76 65 6d 65 6e 74 20 3d | 20 33 20 61 6e 64 20 44 |vement =| 3 and D|
|000040b0| 69 72 65 63 74 69 6f 6e | 20 3d 20 31 20 74 68 65 |irection| = 1 the|
|000040c0| 6e 0d 20 20 20 20 20 20 | 70 75 74 20 36 39 30 38 |n. |put 6908|
|000040d0| 20 69 6e 74 6f 20 6d 53 | 74 61 72 74 0d 20 20 20 | into mS|tart. |
|000040e0| 20 20 20 70 75 74 20 37 | 38 35 32 20 69 6e 74 6f | put 7|852 into|
|000040f0| 20 6d 45 6e 64 0d 20 20 | 20 20 65 6c 73 65 20 69 | mEnd. | else i|
|00004100| 66 20 4d 6f 76 65 6d 65 | 6e 74 20 3d 20 33 20 61 |f Moveme|nt = 3 a|
|00004110| 6e 64 20 44 69 72 65 63 | 74 69 6f 6e 20 3d 20 30 |nd Direc|tion = 0|
|00004120| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 70 75 74 20 | then. | put |
|00004130| 39 34 32 35 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |9425 int|o mStart|
|00004140| 0d 20 20 20 20 20 20 70 | 75 74 20 39 38 39 32 20 |. p|ut 9892 |
|00004150| 69 6e 74 6f 20 6d 45 6e | 64 0d 20 20 20 20 65 6c |into mEn|d. el|
|00004160| 73 65 20 69 66 20 4d 6f | 76 65 6d 65 6e 74 20 3d |se if Mo|vement =|
|00004170| 20 33 20 61 6e 64 20 44 | 69 72 65 63 74 69 6f 6e | 3 and D|irection|
|00004180| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 2 the|n. |
|00004190| 43 68 65 63 6b 0d 20 20 | 20 20 65 6e 64 20 69 66 |Check. | end if|
|000041a0| 0d 20 20 20 20 69 66 20 | 4d 6f 76 65 6d 65 6e 74 |. if |Movement|
|000041b0| 20 3d 20 34 20 61 6e 64 | 20 44 69 72 65 63 74 69 | = 4 and| Directi|
|000041c0| 6f 6e 20 3d 20 32 20 74 | 68 65 6e 0d 20 20 20 20 |on = 2 t|hen. |
|000041d0| 20 20 70 75 74 20 32 35 | 39 30 20 69 6e 74 6f 20 | put 25|90 into |
|000041e0| 6d 53 74 61 72 74 0d 20 | 20 20 20 20 20 70 75 74 |mStart. | put|
|000041f0| 20 33 35 33 37 20 69 6e | 74 6f 20 6d 45 6e 64 0d | 3537 in|to mEnd.|
|00004200| 20 20 20 20 65 6c 73 65 | 20 69 66 20 4d 6f 76 65 | else| if Move|
|00004210| 6d 65 6e 74 20 3d 20 34 | 20 61 6e 64 20 44 69 72 |ment = 4| and Dir|
|00004220| 65 63 74 69 6f 6e 20 3d | 20 30 20 74 68 65 6e 0d |ection =| 0 then.|
|00004230| 20 20 20 20 20 20 70 75 | 74 20 35 31 37 30 20 69 | pu|t 5170 i|
|00004240| 6e 74 6f 20 6d 53 74 61 | 72 74 0d 20 20 20 20 20 |nto mSta|rt. |
|00004250| 20 70 75 74 20 35 36 33 | 35 20 69 6e 74 6f 20 6d | put 563|5 into m|
|00004260| 45 6e 64 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 |End. |else if |
|00004270| 4d 6f 76 65 6d 65 6e 74 | 20 3d 20 34 20 61 6e 64 |Movement| = 4 and|
|00004280| 20 44 69 72 65 63 74 69 | 6f 6e 20 3d 20 31 20 74 | Directi|on = 1 t|
|00004290| 68 65 6e 0d 20 20 20 20 | 20 20 43 68 65 63 6b 0d |hen. | Check.|
|000042a0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 65 6e 64 | end |if. end|
|000042b0| 20 69 66 20 20 0d 65 6e | 64 20 4e 61 76 69 67 61 | if .en|d Naviga|
|000042c0| 74 65 0d 0d 6f 6e 20 54 | 72 61 63 6b 44 69 72 0d |te..on T|rackDir.|
|000042d0| 20 20 67 6c 6f 62 61 6c | 20 44 69 72 65 63 74 69 | global| Directi|
|000042e0| 6f 6e 2c 20 4d 6f 76 65 | 6d 65 6e 74 0d 20 20 69 |on, Move|ment. i|
|000042f0| 66 20 44 69 72 65 63 74 | 69 6f 6e 20 3d 20 31 20 |f Direct|ion = 1 |
|00004300| 61 6e 64 20 4d 6f 76 65 | 6d 65 6e 74 20 3d 20 32 |and Move|ment = 2|
|00004310| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 32 20 | then. | put 2 |
|00004320| 69 6e 74 6f 20 44 69 72 | 65 63 74 69 6f 6e 0d 20 |into Dir|ection. |
|00004330| 20 65 6c 73 65 20 69 66 | 20 44 69 72 65 63 74 69 | else if| Directi|
|00004340| 6f 6e 20 3d 20 32 20 61 | 6e 64 20 4d 6f 76 65 6d |on = 2 a|nd Movem|
|00004350| 65 6e 74 20 3d 20 32 20 | 74 68 65 6e 20 0d 20 20 |ent = 2 |then . |
|00004360| 20 20 70 75 74 20 31 20 | 69 6e 74 6f 20 44 69 72 | put 1 |into Dir|
|00004370| 65 63 74 69 6f 6e 0d 20 | 20 65 6c 73 65 20 69 66 |ection. | else if|
|00004380| 20 44 69 72 65 63 74 69 | 6f 6e 20 3d 20 31 20 61 | Directi|on = 1 a|
|00004390| 6e 64 20 4d 6f 76 65 6d | 65 6e 74 20 3d 20 33 20 |nd Movem|ent = 3 |
|000043a0| 74 68 65 6e 20 0d 20 20 | 20 20 70 75 74 20 33 20 |then . | put 3 |
|000043b0| 69 6e 74 6f 20 44 69 72 | 65 63 74 69 6f 6e 0d 20 |into Dir|ection. |
|000043c0| 20 65 6c 73 65 20 69 66 | 20 44 69 72 65 63 74 69 | else if| Directi|
|000043d0| 6f 6e 20 3d 20 32 20 61 | 6e 64 20 4d 6f 76 65 6d |on = 2 a|nd Movem|
|000043e0| 65 6e 74 20 3d 20 34 20 | 74 68 65 6e 20 0d 20 20 |ent = 4 |then . |
|000043f0| 20 20 70 75 74 20 33 20 | 69 6e 74 6f 20 44 69 72 | put 3 |into Dir|
|00004400| 65 63 74 69 6f 6e 0d 20 | 20 65 6c 73 65 20 69 66 |ection. | else if|
|00004410| 20 44 69 72 65 63 74 69 | 6f 6e 20 3d 20 33 20 61 | Directi|on = 3 a|
|00004420| 6e 64 20 4d 6f 76 65 6d | 65 6e 74 20 3d 20 32 20 |nd Movem|ent = 2 |
|00004430| 74 68 65 6e 20 0d 20 20 | 20 20 70 75 74 20 30 20 |then . | put 0 |
|00004440| 69 6e 74 6f 20 44 69 72 | 65 63 74 69 6f 6e 0d 20 |into Dir|ection. |
|00004450| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 54 72 61 63 | end if.|end Trac|
|00004460| 6b 44 69 72 0d 0d 6f 6e | 20 54 72 61 63 6b 32 0d |kDir..on| Track2.|
|00004470| 20 20 67 6c 6f 62 61 6c | 20 44 69 72 65 63 74 69 | global| Directi|
|00004480| 6f 6e 2c 20 4d 6f 76 65 | 6d 65 6e 74 0d 20 20 69 |on, Move|ment. i|
|00004490| 66 20 44 69 72 65 63 74 | 69 6f 6e 20 3d 20 30 20 |f Direct|ion = 0 |
|000044a0| 61 6e 64 20 4d 6f 76 65 | 6d 65 6e 74 20 3d 20 33 |and Move|ment = 3|
|000044b0| 20 74 68 65 6e 20 0d 20 | 20 20 20 70 75 74 20 31 | then . | put 1|
|000044c0| 20 69 6e 74 6f 20 44 69 | 72 65 63 74 69 6f 6e 0d | into Di|rection.|
|000044d0| 20 20 65 6c 73 65 20 69 | 66 20 44 69 72 65 63 74 | else i|f Direct|
|000044e0| 69 6f 6e 20 3d 20 30 20 | 61 6e 64 20 4d 6f 76 65 |ion = 0 |and Move|
|000044f0| 6d 65 6e 74 20 3d 20 34 | 20 74 68 65 6e 20 0d 20 |ment = 4| then . |
|00004500| 20 20 20 70 75 74 20 32 | 20 69 6e 74 6f 20 44 69 | put 2| into Di|
|00004510| 72 65 63 74 69 6f 6e 20 | 20 0d 20 20 65 6e 64 20 |rection | . end |
|00004520| 69 66 0d 65 6e 64 20 54 | 72 61 63 6b 32 0d 0d 6f |if.end T|rack2..o|
|00004530| 6e 20 53 65 74 4c 6f 63 | 0d 20 20 67 6c 6f 62 61 |n SetLoc|. globa|
|00004540| 6c 20 4c 6f 63 61 74 69 | 6f 6e 2c 20 44 69 72 65 |l Locati|on, Dire|
|00004550| 63 74 69 6f 6e 2c 20 4d | 6f 76 65 6d 65 6e 74 0d |ction, M|ovement.|
|00004560| 20 20 69 66 20 4c 6f 63 | 61 74 69 6f 6e 20 3d 20 | if Loc|ation = |
|00004570| 30 20 61 6e 64 20 4d 6f | 76 65 6d 65 6e 74 20 3d |0 and Mo|vement =|
|00004580| 20 34 20 74 68 65 6e 0d | 20 20 20 20 70 75 74 20 | 4 then.| put |
|00004590| 35 20 69 6e 74 6f 20 4c | 6f 63 61 74 69 6f 6e 20 |5 into L|ocation |
|000045a0| 0d 20 20 65 6c 73 65 20 | 69 66 20 4c 6f 63 61 74 |. else |if Locat|
|000045b0| 69 6f 6e 20 3e 20 30 20 | 61 6e 64 20 44 69 72 65 |ion > 0 |and Dire|
|000045c0| 63 74 69 6f 6e 20 3d 20 | 31 20 74 68 65 6e 0d 20 |ction = |1 then. |
|000045d0| 20 20 20 70 75 74 20 4c | 6f 63 61 74 69 6f 6e 20 | put L|ocation |
|000045e0| 2b 20 31 20 69 6e 74 6f | 20 4c 6f 63 61 74 69 6f |+ 1 into| Locatio|
|000045f0| 6e 0d 20 20 65 6c 73 65 | 20 69 66 20 4c 6f 63 61 |n. else| if Loca|
|00004600| 74 69 6f 6e 20 3e 20 30 | 20 61 6e 64 20 44 69 72 |tion > 0| and Dir|
|00004610| 65 63 74 69 6f 6e 20 3d | 20 32 20 74 68 65 6e 0d |ection =| 2 then.|
|00004620| 20 20 20 20 70 75 74 20 | 4c 6f 63 61 74 69 6f 6e | put |Location|
|00004630| 20 2d 20 31 20 69 6e 74 | 6f 20 4c 6f 63 61 74 69 | - 1 int|o Locati|
|00004640| 6f 6e 20 20 20 20 0d 20 | 20 65 6e 64 20 69 66 0d |on . | end if.|
|00004650| 20 20 69 66 20 44 69 72 | 65 63 74 69 6f 6e 20 3d | if Dir|ection =|
|00004660| 20 31 20 61 6e 64 20 4d | 6f 76 65 6d 65 6e 74 20 | 1 and M|ovement |
|00004670| 3d 20 32 20 74 68 65 6e | 20 70 75 74 20 4c 6f 63 |= 2 then| put Loc|
|00004680| 61 74 69 6f 6e 20 2d 31 | 20 69 6e 74 6f 20 4c 6f |ation -1| into Lo|
|00004690| 63 61 74 69 6f 6e 0d 20 | 20 69 66 20 44 69 72 65 |cation. | if Dire|
|000046a0| 63 74 69 6f 6e 20 3d 20 | 32 20 61 6e 64 20 4d 6f |ction = |2 and Mo|
|000046b0| 76 65 6d 65 6e 74 20 3d | 20 32 20 74 68 65 6e 20 |vement =| 2 then |
|000046c0| 70 75 74 20 4c 6f 63 61 | 74 69 6f 6e 20 2b 31 20 |put Loca|tion +1 |
|000046d0| 69 6e 74 6f 20 4c 6f 63 | 61 74 69 6f 6e 0d 20 20 |into Loc|ation. |
|000046e0| 69 66 20 4c 6f 63 61 74 | 69 6f 6e 20 3d 20 35 20 |if Locat|ion = 5 |
|000046f0| 74 68 65 6e 20 70 75 74 | 20 31 20 69 6e 74 6f 20 |then put| 1 into |
|00004700| 4c 6f 63 61 74 69 6f 6e | 0d 20 20 69 66 20 4c 6f |Location|. if Lo|
|00004710| 63 61 74 69 6f 6e 20 3d | 20 30 20 74 68 65 6e 20 |cation =| 0 then |
|00004720| 70 75 74 20 34 20 69 6e | 74 6f 20 4c 6f 63 61 74 |put 4 in|to Locat|
|00004730| 69 6f 6e 0d 65 6e 64 20 | 53 65 74 4c 6f 63 0d 0d |ion.end |SetLoc..|
|00004740| 2d 2d 20 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |-- _____|________|
|00004750| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00004760| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00004770| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00004780| 5f 5f 5f 0d 2d 2d 20 7c | 20 20 20 20 20 20 20 20 |___.-- || |
|00004790| 20 20 20 20 20 20 43 6f | 64 65 20 66 6f 72 20 4d | Co|de for M|
|000047a0| 6f 76 69 6e 67 20 44 6f | 74 20 6f 6e 20 4d 61 70 |oving Do|t on Map|
|000047b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000047c0| 20 20 20 20 20 20 7c 0d | 2d 2d 20 2d 2d 2d 2d 2d | |.|-- -----|
|000047d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 44 |--------|---.on D|
|00004810| 6f 74 4d 6f 76 65 0d 20 | 20 67 6c 6f 62 61 6c 20 |otMove. | global |
|00004820| 44 69 72 65 63 74 69 6f | 6e 2c 20 4c 6f 63 61 74 |Directio|n, Locat|
|00004830| 69 6f 6e 2c 20 44 50 4f | 53 2c 20 56 44 6f 74 2c |ion, DPO|S, VDot,|
|00004840| 20 48 44 6f 74 2c 20 6d | 53 74 61 72 74 2c 20 6d | HDot, m|Start, m|
|00004850| 45 6e 64 2c 20 4d 6f 76 | 65 6d 65 6e 74 2c 20 44 |End, Mov|ement, D|
|00004860| 6f 74 2c 20 4d 44 6f 74 | 0d 20 20 69 66 20 4d 44 |ot, MDot|. if MD|
|00004870| 6f 74 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |ot = 1 t|hen. |
|00004880| 69 66 20 44 69 72 65 63 | 74 69 6f 6e 20 3d 20 32 |if Direc|tion = 2|
|00004890| 20 61 6e 64 20 4d 6f 76 | 65 6d 65 6e 74 20 3d 20 | and Mov|ement = |
|000048a0| 33 20 74 68 65 6e 0d 20 | 20 20 20 20 20 69 66 20 |3 then. | if |
|000048b0| 74 68 65 20 6d 6f 76 69 | 65 74 69 6d 65 20 6f 66 |the movi|etime of|
|000048c0| 20 73 70 72 69 74 65 20 | 31 20 3e 20 32 33 31 38 | sprite |1 > 2318|
|000048d0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 69 66 | then. | if|
|000048e0| 20 6d 53 74 61 72 74 20 | 3c 20 32 33 31 38 20 74 | mStart |< 2318 t|
|000048f0| 68 65 6e 20 70 75 74 20 | 32 33 31 38 20 69 6e 74 |hen put |2318 int|
|00004900| 6f 20 6d 53 74 61 72 74 | 0d 20 20 20 20 20 20 20 |o mStart|. |
|00004910| 20 70 75 74 20 44 50 4f | 53 20 2b 20 31 20 69 6e | put DPO|S + 1 in|
|00004920| 74 6f 20 44 50 4f 53 0d | 20 20 20 20 20 20 20 20 |to DPOS.| |
|00004930| 48 61 6c 66 4c 65 66 74 | 56 0d 20 20 20 20 20 20 |HalfLeft|V. |
|00004940| 20 20 48 61 6c 66 4c 65 | 66 74 48 0d 20 20 20 20 | HalfLe|ftH. |
|00004950| 20 20 20 20 70 75 74 20 | 6d 53 74 61 72 74 20 2b | put |mStart +|
|00004960| 20 31 32 20 69 6e 74 6f | 20 6d 53 74 61 72 74 0d | 12 into| mStart.|
|00004970| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | en|d if. |
|00004980| 20 65 6e 64 20 69 66 0d | 20 20 20 20 69 66 20 44 | end if.| if D|
|00004990| 69 72 65 63 74 69 6f 6e | 20 3d 20 31 20 61 6e 64 |irection| = 1 and|
|000049a0| 20 4d 6f 76 65 6d 65 6e | 74 20 3d 20 34 20 74 68 | Movemen|t = 4 th|
|000049b0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |en. | if the |
|000049c0| 6d 6f 76 69 65 74 69 6d | 65 20 6f 66 20 73 70 72 |movietim|e of spr|
|000049d0| 69 74 65 20 31 20 3e 20 | 36 35 32 39 20 74 68 65 |ite 1 > |6529 the|
|000049e0| 6e 0d 20 20 20 20 20 20 | 20 20 69 66 20 6d 53 74 |n. | if mSt|
|000049f0| 61 72 74 20 3c 20 36 35 | 32 39 20 74 68 65 6e 20 |art < 65|29 then |
|00004a00| 70 75 74 20 36 35 32 39 | 20 69 6e 74 6f 20 6d 53 |put 6529| into mS|
|00004a10| 74 61 72 74 0d 20 20 20 | 20 20 20 20 20 70 75 74 |tart. | put|
|00004a20| 20 44 50 4f 53 20 2b 20 | 31 20 69 6e 74 6f 20 44 | DPOS + |1 into D|
|00004a30| 50 4f 53 0d 20 20 20 20 | 20 20 20 20 48 61 6c 66 |POS. | Half|
|00004a40| 52 69 67 68 74 56 0d 20 | 20 20 20 20 20 20 20 48 |RightV. | H|
|00004a50| 61 6c 66 52 69 67 68 74 | 48 0d 20 20 20 20 20 20 |alfRight|H. |
|00004a60| 20 20 70 75 74 20 6d 53 | 74 61 72 74 20 2b 20 31 | put mS|tart + 1|
|00004a70| 38 20 69 6e 74 6f 20 6d | 53 74 61 72 74 0d 20 20 |8 into m|Start. |
|00004a80| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 65 | end |if. e|
|00004a90| 6e 64 20 69 66 0d 20 20 | 20 20 69 66 20 44 69 72 |nd if. | if Dir|
|00004aa0| 65 63 74 69 6f 6e 20 3d | 20 31 20 61 6e 64 20 4c |ection =| 1 and L|
|00004ab0| 6f 63 61 74 69 6f 6e 20 | 3d 20 31 20 74 68 65 6e |ocation |= 1 then|
|00004ac0| 0d 20 20 20 20 20 20 69 | 66 20 74 68 65 20 6d 6f |. i|f the mo|
|00004ad0| 76 69 65 74 69 6d 65 20 | 6f 66 20 73 70 72 69 74 |vietime |of sprit|
|00004ae0| 65 20 31 20 3e 20 31 30 | 31 34 33 20 74 68 65 6e |e 1 > 10|143 then|
|00004af0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 6d 53 74 61 |. | if mSta|
|00004b00| 72 74 20 3c 20 31 30 31 | 34 33 20 74 68 65 6e 20 |rt < 101|43 then |
|00004b10| 70 75 74 20 31 30 31 34 | 33 20 69 6e 74 6f 20 6d |put 1014|3 into m|
|00004b20| 53 74 61 72 74 0d 20 20 | 20 20 20 20 20 20 70 75 |Start. | pu|
|00004b30| 74 20 44 50 4f 53 20 2b | 20 31 20 69 6e 74 6f 20 |t DPOS +| 1 into |
|00004b40| 44 50 4f 53 0d 20 20 20 | 20 20 20 20 20 44 6f 77 |DPOS. | Dow|
|00004b50| 6e 5f 48 0d 20 20 20 20 | 20 20 20 20 55 70 5f 56 |n_H. | Up_V|
|00004b60| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 6d 53 74 |. | put mSt|
|00004b70| 61 72 74 20 2b 20 31 32 | 20 69 6e 74 6f 20 6d 53 |art + 12| into mS|
|00004b80| 74 61 72 74 0d 20 20 20 | 20 20 20 65 6e 64 20 69 |tart. | end i|
|00004b90| 66 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |f. en|d if. |
|00004ba0| 20 69 66 20 44 69 72 65 | 63 74 69 6f 6e 20 3d 20 | if Dire|ction = |
|00004bb0| 31 20 61 6e 64 20 4c 6f | 63 61 74 69 6f 6e 20 3d |1 and Lo|cation =|
|00004bc0| 20 32 20 74 68 65 6e 0d | 20 20 20 20 20 20 69 66 | 2 then.| if|
|00004bd0| 20 74 68 65 20 6d 6f 76 | 69 65 74 69 6d 65 20 6f | the mov|ietime o|
|00004be0| 66 20 73 70 72 69 74 65 | 20 31 20 3e 20 31 30 31 |f sprite| 1 > 101|
|00004bf0| 34 33 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |43 then.| |
|00004c00| 69 66 20 6d 53 74 61 72 | 74 20 3c 20 31 30 31 34 |if mStar|t < 1014|
|00004c10| 33 20 74 68 65 6e 20 70 | 75 74 20 31 30 31 34 33 |3 then p|ut 10143|
|00004c20| 20 69 6e 74 6f 20 6d 53 | 74 61 72 74 0d 20 20 20 | into mS|tart. |
|00004c30| 20 20 20 20 20 70 75 74 | 20 44 50 4f 53 20 2b 20 | put| DPOS + |
|00004c40| 31 20 69 6e 74 6f 20 44 | 50 4f 53 0d 20 20 20 20 |1 into D|POS. |
|00004c50| 20 20 20 20 44 6f 77 6e | 5f 48 32 0d 20 20 20 20 | Down|_H2. |
|00004c60| 20 20 20 20 44 6f 77 6e | 5f 56 32 0d 20 20 20 20 | Down|_V2. |
|00004c70| 20 20 20 20 70 75 74 20 | 6d 53 74 61 72 74 20 2b | put |mStart +|
|00004c80| 20 31 32 20 69 6e 74 6f | 20 6d 53 74 61 72 74 0d | 12 into| mStart.|
|00004c90| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | en|d if. |
|00004ca0| 20 65 6e 64 20 69 66 0d | 20 20 20 20 69 66 20 44 | end if.| if D|
|00004cb0| 69 72 65 63 74 69 6f 6e | 20 3d 20 31 20 61 6e 64 |irection| = 1 and|
|00004cc0| 20 4c 6f 63 61 74 69 6f | 6e 20 3d 20 33 20 74 68 | Locatio|n = 3 th|
|00004cd0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |en. | if the |
|00004ce0| 6d 6f 76 69 65 74 69 6d | 65 20 6f 66 20 73 70 72 |movietim|e of spr|
|00004cf0| 69 74 65 20 31 20 3e 20 | 31 30 31 34 33 20 74 68 |ite 1 > |10143 th|
|00004d00| 65 6e 0d 20 20 20 20 20 | 20 20 20 69 66 20 6d 53 |en. | if mS|
|00004d10| 74 61 72 74 20 3c 20 31 | 30 31 34 33 20 74 68 65 |tart < 1|0143 the|
|00004d20| 6e 20 70 75 74 20 31 30 | 31 34 33 20 69 6e 74 6f |n put 10|143 into|
|00004d30| 20 6d 53 74 61 72 74 0d | 20 20 20 20 20 20 20 20 | mStart.| |
|00004d40| 70 75 74 20 44 50 4f 53 | 20 2b 20 31 20 69 6e 74 |put DPOS| + 1 int|
|00004d50| 6f 20 44 50 4f 53 0d 20 | 20 20 20 20 20 20 20 55 |o DPOS. | U|
|00004d60| 70 5f 48 0d 20 20 20 20 | 20 20 20 20 44 6f 77 6e |p_H. | Down|
|00004d70| 5f 56 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 6d |_V. | put m|
|00004d80| 53 74 61 72 74 20 2b 20 | 31 32 20 69 6e 74 6f 20 |Start + |12 into |
|00004d90| 6d 53 74 61 72 74 0d 20 | 20 20 20 20 20 65 6e 64 |mStart. | end|
|00004da0| 20 69 66 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 | if. |end if. |
|00004db0| 20 20 20 69 66 20 44 69 | 72 65 63 74 69 6f 6e 20 | if Di|rection |
|00004dc0| 3d 20 31 20 61 6e 64 20 | 4c 6f 63 61 74 69 6f 6e |= 1 and |Location|
|00004dd0| 20 3d 20 34 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 4 the|n. |
|00004de0| 69 66 20 74 68 65 20 6d | 6f 76 69 65 74 69 6d 65 |if the m|ovietime|
|00004df0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 20 3e 20 31 | of spri|te 1 > 1|
|00004e00| 30 31 34 33 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |0143 the|n. |
|00004e10| 20 20 69 66 20 6d 53 74 | 61 72 74 20 3c 20 31 30 | if mSt|art < 10|
|00004e20| 31 34 33 20 74 68 65 6e | 20 70 75 74 20 31 30 31 |143 then| put 101|
|00004e30| 34 33 20 69 6e 74 6f 20 | 6d 53 74 61 72 74 0d 20 |43 into |mStart. |
|00004e40| 20 20 20 20 20 20 20 70 | 75 74 20 44 50 4f 53 20 | p|ut DPOS |
|00004e50| 2b 20 31 20 69 6e 74 6f | 20 44 50 4f 53 0d 20 20 |+ 1 into| DPOS. |
|00004e60| 20 20 20 20 20 20 55 70 | 5f 56 32 0d 20 20 20 20 | Up|_V2. |
|00004e70| 20 20 20 20 55 70 5f 48 | 32 0d 20 20 20 20 20 20 | Up_H|2. |
|00004e80| 20 20 70 75 74 20 6d 53 | 74 61 72 74 20 2b 20 31 | put mS|tart + 1|
|00004e90| 32 20 69 6e 74 6f 20 6d | 53 74 61 72 74 0d 20 20 |2 into m|Start. |
|00004ea0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 65 | end |if. e|
|00004eb0| 6e 64 20 69 66 0d 20 20 | 20 20 69 66 20 44 69 72 |nd if. | if Dir|
|00004ec0| 65 63 74 69 6f 6e 20 3d | 20 32 20 61 6e 64 20 4c |ection =| 2 and L|
|00004ed0| 6f 63 61 74 69 6f 6e 20 | 3d 20 31 20 74 68 65 6e |ocation |= 1 then|
|00004ee0| 0d 20 20 20 20 20 20 69 | 66 20 74 68 65 20 6d 6f |. i|f the mo|
|00004ef0| 76 69 65 74 69 6d 65 20 | 6f 66 20 73 70 72 69 74 |vietime |of sprit|
|00004f00| 65 20 31 20 3e 20 35 38 | 35 39 20 74 68 65 6e 0d |e 1 > 58|59 then.|
|00004f10| 20 20 20 20 20 20 20 20 | 69 66 20 6d 53 74 61 72 | |if mStar|
|00004f20| 74 20 3c 20 35 38 35 39 | 20 74 68 65 6e 20 70 75 |t < 5859| then pu|
|00004f30| 74 20 35 38 35 39 20 69 | 6e 74 6f 20 6d 53 74 61 |t 5859 i|nto mSta|
|00004f40| 72 74 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 44 |rt. | put D|
|00004f50| 50 4f 53 20 2b 20 31 20 | 69 6e 74 6f 20 44 50 4f |POS + 1 |into DPO|
|00004f60| 53 0d 20 20 20 20 20 20 | 20 20 55 70 5f 56 0d 20 |S. | Up_V. |
|00004f70| 20 20 20 20 20 20 20 55 | 70 5f 48 0d 20 20 20 20 | U|p_H. |
|00004f80| 20 20 20 20 70 75 74 20 | 6d 53 74 61 72 74 20 2b | put |mStart +|
|00004f90| 20 31 32 20 69 6e 74 6f | 20 6d 53 74 61 72 74 0d | 12 into| mStart.|
|00004fa0| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | en|d if. |
|00004fb0| 20 65 6e 64 20 69 66 0d | 20 20 20 20 69 66 20 44 | end if.| if D|
|00004fc0| 69 72 65 63 74 69 6f 6e | 20 3d 20 32 20 61 6e 64 |irection| = 2 and|
|00004fd0| 20 4c 6f 63 61 74 69 6f | 6e 20 3d 20 32 20 74 68 | Locatio|n = 2 th|
|00004fe0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |en. | if the |
|00004ff0| 6d 6f 76 69 65 74 69 6d | 65 20 6f 66 20 73 70 72 |movietim|e of spr|
|00005000| 69 74 65 20 31 20 3e 20 | 35 38 35 39 20 74 68 65 |ite 1 > |5859 the|
|00005010| 6e 0d 20 20 20 20 20 20 | 20 20 69 66 20 6d 53 74 |n. | if mSt|
|00005020| 61 72 74 20 3c 20 35 38 | 35 39 20 74 68 65 6e 20 |art < 58|59 then |
|00005030| 70 75 74 20 35 38 35 39 | 20 69 6e 74 6f 20 6d 53 |put 5859| into mS|
|00005040| 74 61 72 74 0d 20 20 20 | 20 20 20 20 20 70 75 74 |tart. | put|
|00005050| 20 44 50 4f 53 20 2b 20 | 31 20 69 6e 74 6f 20 44 | DPOS + |1 into D|
|00005060| 50 4f 53 0d 20 20 20 20 | 20 20 20 20 55 70 5f 56 |POS. | Up_V|
|00005070| 32 0d 20 20 20 20 20 20 | 20 20 44 6f 77 6e 5f 48 |2. | Down_H|
|00005080| 32 0d 20 20 20 20 20 20 | 20 20 70 75 74 20 6d 53 |2. | put mS|
|00005090| 74 61 72 74 20 2b 20 31 | 32 20 69 6e 74 6f 20 6d |tart + 1|2 into m|
|000050a0| 53 74 61 72 74 0d 20 20 | 20 20 20 20 65 6e 64 20 |Start. | end |
|000050b0| 69 66 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |if. e|nd if. |
|000050c0| 20 20 69 66 20 44 69 72 | 65 63 74 69 6f 6e 20 3d | if Dir|ection =|
|000050d0| 20 32 20 61 6e 64 20 4c | 6f 63 61 74 69 6f 6e 20 | 2 and L|ocation |
|000050e0| 3d 20 33 20 74 68 65 6e | 0d 20 20 20 20 20 20 69 |= 3 then|. i|
|000050f0| 66 20 74 68 65 20 6d 6f | 76 69 65 74 69 6d 65 20 |f the mo|vietime |
|00005100| 6f 66 20 73 70 72 69 74 | 65 20 31 20 3e 20 35 38 |of sprit|e 1 > 58|
|00005110| 35 39 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |59 then.| |
|00005120| 69 66 20 6d 53 74 61 72 | 74 20 3c 20 35 38 35 39 |if mStar|t < 5859|
|00005130| 20 74 68 65 6e 20 70 75 | 74 20 35 38 35 39 20 69 | then pu|t 5859 i|
|00005140| 6e 74 6f 20 6d 53 74 61 | 72 74 0d 20 20 20 20 20 |nto mSta|rt. |
|00005150| 20 20 20 70 75 74 20 44 | 50 4f 53 20 2b 20 31 20 | put D|POS + 1 |
|00005160| 69 6e 74 6f 20 44 50 4f | 53 0d 20 20 20 20 20 20 |into DPO|S. |
|00005170| 20 20 44 6f 77 6e 5f 56 | 0d 20 20 20 20 20 20 20 | Down_V|. |
|00005180| 20 44 6f 77 6e 5f 48 0d | 20 20 20 20 20 20 20 20 | Down_H.| |
|00005190| 70 75 74 20 6d 53 74 61 | 72 74 20 2b 20 31 32 20 |put mSta|rt + 12 |
|000051a0| 69 6e 74 6f 20 6d 53 74 | 61 72 74 0d 20 20 20 20 |into mSt|art. |
|000051b0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 65 6e 64 | end if|. end|
|000051c0| 20 69 66 0d 20 20 20 20 | 69 66 20 44 69 72 65 63 | if. |if Direc|
|000051d0| 74 69 6f 6e 20 3d 20 32 | 20 61 6e 64 20 4c 6f 63 |tion = 2| and Loc|
|000051e0| 61 74 69 6f 6e 20 3d 20 | 34 20 74 68 65 6e 0d 20 |ation = |4 then. |
|000051f0| 20 20 20 20 20 69 66 20 | 74 68 65 20 6d 6f 76 69 | if |the movi|
|00005200| 65 74 69 6d 65 20 6f 66 | 20 73 70 72 69 74 65 20 |etime of| sprite |
|00005210| 31 20 3e 20 35 38 35 39 | 20 74 68 65 6e 0d 20 20 |1 > 5859| then. |
|00005220| 20 20 20 20 20 20 69 66 | 20 6d 53 74 61 72 74 20 | if| mStart |
|00005230| 3c 20 35 38 35 39 20 74 | 68 65 6e 20 70 75 74 20 |< 5859 t|hen put |
|00005240| 35 38 35 39 20 69 6e 74 | 6f 20 6d 53 74 61 72 74 |5859 int|o mStart|
|00005250| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 44 50 4f |. | put DPO|
|00005260| 53 20 2b 20 31 20 69 6e | 74 6f 20 44 50 4f 53 0d |S + 1 in|to DPOS.|
|00005270| 20 20 20 20 20 20 20 20 | 55 70 5f 48 32 0d 20 20 | |Up_H2. |
|00005280| 20 20 20 20 20 20 44 6f | 77 6e 5f 56 32 0d 20 20 | Do|wn_V2. |
|00005290| 20 20 20 20 20 20 70 75 | 74 20 6d 53 74 61 72 74 | pu|t mStart|
|000052a0| 20 2b 20 31 32 20 69 6e | 74 6f 20 6d 53 74 61 72 | + 12 in|to mStar|
|000052b0| 74 0d 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |t. |end if. |
|000052c0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 69 66 | end i|f. if|
|000052d0| 20 6c 6f 63 61 74 69 6f | 6e 20 3d 20 31 20 61 6e | locatio|n = 1 an|
|000052e0| 64 20 64 69 72 65 63 74 | 69 6f 6e 20 3d 20 33 20 |d direct|ion = 3 |
|000052f0| 74 68 65 6e 0d 20 20 20 | 20 20 20 69 66 20 6d 45 |then. | if mE|
|00005300| 6e 64 20 3d 20 33 35 33 | 37 20 74 68 65 6e 20 70 |nd = 353|7 then p|
|00005310| 75 74 20 32 37 35 36 20 | 69 6e 74 6f 20 66 72 61 |ut 2756 |into fra|
|00005320| 6d 65 20 0d 20 20 20 20 | 20 20 69 66 20 6d 45 6e |me . | if mEn|
|00005330| 64 20 3d 20 37 38 35 32 | 20 74 68 65 6e 20 70 75 |d = 7852| then pu|
|00005340| 74 20 37 31 33 33 20 69 | 6e 74 6f 20 66 72 61 6d |t 7133 i|nto fram|
|00005350| 65 20 0d 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |e . | if the |
|00005360| 6d 6f 76 69 65 74 69 6d | 65 20 6f 66 20 73 70 72 |movietim|e of spr|
|00005370| 69 74 65 20 31 20 3e 20 | 66 72 61 6d 65 20 74 68 |ite 1 > |frame th|
|00005380| 65 6e 0d 20 20 20 20 20 | 20 20 20 69 66 20 6d 53 |en. | if mS|
|00005390| 74 61 72 74 20 3c 20 66 | 72 61 6d 65 20 74 68 65 |tart < f|rame the|
|000053a0| 6e 20 70 75 74 20 66 72 | 61 6d 65 20 69 6e 74 6f |n put fr|ame into|
|000053b0| 20 6d 53 74 61 72 74 0d | 20 20 20 20 20 20 20 20 | mStart.| |
|000053c0| 70 75 74 20 44 50 4f 53 | 20 2b 20 31 20 69 6e 74 |put DPOS| + 1 int|
|000053d0| 6f 20 44 50 4f 53 0d 20 | 20 20 20 20 20 20 20 70 |o DPOS. | p|
|000053e0| 75 74 20 56 44 6f 74 20 | 69 6e 74 6f 20 44 6f 74 |ut VDot |into Dot|
|000053f0| 0d 20 20 20 20 20 20 20 | 20 55 70 44 6f 74 0d 20 |. | UpDot. |
|00005400| 20 20 20 20 20 20 20 70 | 75 74 20 44 6f 74 20 69 | p|ut Dot i|
|00005410| 6e 74 6f 20 56 44 6f 74 | 0d 20 20 20 20 20 20 20 |nto VDot|. |
|00005420| 20 70 75 74 20 6d 53 74 | 61 72 74 20 2b 20 31 38 | put mSt|art + 18|
|00005430| 38 20 69 6e 74 6f 20 6d | 53 74 61 72 74 0d 20 20 |8 into m|Start. |
|00005440| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 65 | end |if. e|
|00005450| 6e 64 20 69 66 0d 20 20 | 20 20 69 66 20 6c 6f 63 |nd if. | if loc|
|00005460| 61 74 69 6f 6e 20 3d 20 | 32 20 61 6e 64 20 64 69 |ation = |2 and di|
|00005470| 72 65 63 74 69 6f 6e 20 | 3d 20 33 20 74 68 65 6e |rection |= 3 then|
|00005480| 0d 20 20 20 20 20 20 69 | 66 20 6d 45 6e 64 20 3d |. i|f mEnd =|
|00005490| 20 33 35 33 37 20 74 68 | 65 6e 20 70 75 74 20 32 | 3537 th|en put 2|
|000054a0| 37 35 36 20 69 6e 74 6f | 20 66 72 61 6d 65 20 0d |756 into| frame .|
|000054b0| 20 20 20 20 20 20 69 66 | 20 6d 45 6e 64 20 3d 20 | if| mEnd = |
|000054c0| 37 38 35 32 20 74 68 65 | 6e 20 70 75 74 20 37 31 |7852 the|n put 71|
|000054d0| 33 33 20 69 6e 74 6f 20 | 66 72 61 6d 65 20 0d 20 |33 into |frame . |
|000054e0| 20 20 20 20 20 69 66 20 | 74 68 65 20 6d 6f 76 69 | if |the movi|
|000054f0| 65 74 69 6d 65 20 6f 66 | 20 73 70 72 69 74 65 20 |etime of| sprite |
|00005500| 31 20 3e 20 66 72 61 6d | 65 20 74 68 65 6e 0d 20 |1 > fram|e then. |
|00005510| 20 20 20 20 20 20 20 69 | 66 20 6d 53 74 61 72 74 | i|f mStart|
|00005520| 20 3c 20 66 72 61 6d 65 | 20 74 68 65 6e 20 70 75 | < frame| then pu|
|00005530| 74 20 66 72 61 6d 65 20 | 69 6e 74 6f 20 6d 53 74 |t frame |into mSt|
|00005540| 61 72 74 0d 20 20 20 20 | 20 20 20 20 70 75 74 20 |art. | put |
|00005550| 44 50 4f 53 20 2b 20 31 | 20 69 6e 74 6f 20 44 50 |DPOS + 1| into DP|
|00005560| 4f 53 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 48 |OS. | put H|
|00005570| 44 6f 74 20 69 6e 74 6f | 20 44 6f 74 0d 20 20 20 |Dot into| Dot. |
|00005580| 20 20 20 20 20 44 6f 77 | 6e 44 6f 74 0d 20 20 20 | Dow|nDot. |
|00005590| 20 20 20 20 20 70 75 74 | 20 44 6f 74 20 69 6e 74 | put| Dot int|
|000055a0| 6f 20 48 44 6f 74 0d 20 | 20 20 20 20 20 20 20 70 |o HDot. | p|
|000055b0| 75 74 20 6d 53 74 61 72 | 74 20 2b 20 31 38 38 20 |ut mStar|t + 188 |
|000055c0| 69 6e 74 6f 20 6d 53 74 | 61 72 74 0d 20 20 20 20 |into mSt|art. |
|000055d0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 65 6e 64 | end if|. end|
|000055e0| 20 69 66 0d 20 20 20 20 | 69 66 20 6c 6f 63 61 74 | if. |if locat|
|000055f0| 69 6f 6e 20 3d 20 33 20 | 61 6e 64 20 64 69 72 65 |ion = 3 |and dire|
|00005600| 63 74 69 6f 6e 20 3d 20 | 33 20 74 68 65 6e 0d 20 |ction = |3 then. |
|00005610| 20 20 20 20 20 69 66 20 | 6d 45 6e 64 20 3d 20 33 | if |mEnd = 3|
|00005620| 35 33 37 20 74 68 65 6e | 20 70 75 74 20 32 37 35 |537 then| put 275|
|00005630| 36 20 69 6e 74 6f 20 66 | 72 61 6d 65 20 0d 20 20 |6 into f|rame . |
|00005640| 20 20 20 20 69 66 20 6d | 45 6e 64 20 3d 20 37 38 | if m|End = 78|
|00005650| 35 32 20 74 68 65 6e 20 | 70 75 74 20 37 31 33 33 |52 then |put 7133|
|00005660| 20 69 6e 74 6f 20 66 72 | 61 6d 65 20 0d 20 20 20 | into fr|ame . |
|00005670| 20 20 20 69 66 20 74 68 | 65 20 6d 6f 76 69 65 74 | if th|e moviet|
|00005680| 69 6d 65 20 6f 66 20 73 | 70 72 69 74 65 20 31 20 |ime of s|prite 1 |
|00005690| 3e 20 66 72 61 6d 65 20 | 74 68 65 6e 0d 20 20 20 |> frame |then. |
|000056a0| 20 20 20 20 20 69 66 20 | 6d 53 74 61 72 74 20 3c | if |mStart <|
|000056b0| 20 66 72 61 6d 65 20 74 | 68 65 6e 20 70 75 74 20 | frame t|hen put |
|000056c0| 66 72 61 6d 65 20 69 6e | 74 6f 20 6d 53 74 61 72 |frame in|to mStar|
|000056d0| 74 0d 20 20 20 20 20 20 | 20 20 70 75 74 20 44 50 |t. | put DP|
|000056e0| 4f 53 20 2b 20 31 20 69 | 6e 74 6f 20 44 50 4f 53 |OS + 1 i|nto DPOS|
|000056f0| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 56 44 6f |. | put VDo|
|00005700| 74 20 69 6e 74 6f 20 44 | 6f 74 0d 20 20 20 20 20 |t into D|ot. |
|00005710| 20 20 20 44 6f 77 6e 44 | 6f 74 0d 20 20 20 20 20 | DownD|ot. |
|00005720| 20 20 20 70 75 74 20 44 | 6f 74 20 69 6e 74 6f 20 | put D|ot into |
|00005730| 56 44 6f 74 0d 20 20 20 | 20 20 20 20 20 70 75 74 |VDot. | put|
|00005740| 20 6d 53 74 61 72 74 20 | 2b 20 31 38 38 20 69 6e | mStart |+ 188 in|
|00005750| 74 6f 20 6d 53 74 61 72 | 74 0d 20 20 20 20 20 20 |to mStar|t. |
|00005760| 65 6e 64 20 69 66 0d 20 | 20 20 20 65 6e 64 20 69 |end if. | end i|
|00005770| 66 0d 20 20 20 20 69 66 | 20 6c 6f 63 61 74 69 6f |f. if| locatio|
|00005780| 6e 20 3d 20 34 20 61 6e | 64 20 64 69 72 65 63 74 |n = 4 an|d direct|
|00005790| 69 6f 6e 20 3d 20 33 20 | 74 68 65 6e 0d 20 20 20 |ion = 3 |then. |
|000057a0| 20 20 20 69 66 20 6d 45 | 6e 64 20 3d 20 33 35 33 | if mE|nd = 353|
|000057b0| 37 20 74 68 65 6e 20 70 | 75 74 20 32 37 35 36 20 |7 then p|ut 2756 |
|000057c0| 69 6e 74 6f 20 66 72 61 | 6d 65 20 0d 20 20 20 20 |into fra|me . |
|000057d0| 20 20 69 66 20 6d 45 6e | 64 20 3d 20 37 38 35 32 | if mEn|d = 7852|
|000057e0| 20 74 68 65 6e 20 70 75 | 74 20 37 31 33 33 20 69 | then pu|t 7133 i|
|000057f0| 6e 74 6f 20 66 72 61 6d | 65 20 0d 20 20 20 20 20 |nto fram|e . |
|00005800| 20 69 66 20 74 68 65 20 | 6d 6f 76 69 65 74 69 6d | if the |movietim|
|00005810| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 20 3e 20 |e of spr|ite 1 > |
|00005820| 66 72 61 6d 65 20 74 68 | 65 6e 0d 20 20 20 20 20 |frame th|en. |
|00005830| 20 20 20 69 66 20 6d 53 | 74 61 72 74 20 3c 20 66 | if mS|tart < f|
|00005840| 72 61 6d 65 20 74 68 65 | 6e 20 70 75 74 20 66 72 |rame the|n put fr|
|00005850| 61 6d 65 20 69 6e 74 6f | 20 6d 53 74 61 72 74 0d |ame into| mStart.|
|00005860| 20 20 20 20 20 20 20 20 | 70 75 74 20 44 50 4f 53 | |put DPOS|
|00005870| 20 2b 20 31 20 69 6e 74 | 6f 20 44 50 4f 53 0d 20 | + 1 int|o DPOS. |
|00005880| 20 20 20 20 20 20 20 70 | 75 74 20 48 44 6f 74 20 | p|ut HDot |
|00005890| 69 6e 74 6f 20 44 6f 74 | 0d 20 20 20 20 20 20 20 |into Dot|. |
|000058a0| 20 55 70 44 6f 74 0d 20 | 20 20 20 20 20 20 20 70 | UpDot. | p|
|000058b0| 75 74 20 44 6f 74 20 69 | 6e 74 6f 20 48 44 6f 74 |ut Dot i|nto HDot|
|000058c0| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 6d 53 74 |. | put mSt|
|000058d0| 61 72 74 20 2b 20 31 38 | 38 20 69 6e 74 6f 20 6d |art + 18|8 into m|
|000058e0| 53 74 61 72 74 0d 20 20 | 20 20 20 20 65 6e 64 20 |Start. | end |
|000058f0| 69 66 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |if. e|nd if. |
|00005900| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 48 20 6f | set th|e locH o|
|00005910| 66 20 73 70 72 69 74 65 | 20 31 38 20 74 6f 20 48 |f sprite| 18 to H|
|00005920| 44 6f 74 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |Dot. |set the |
|00005930| 6c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 31 |locV of |sprite 1|
|00005940| 38 20 74 6f 20 56 44 6f | 74 0d 20 20 65 6e 64 20 |8 to VDo|t. end |
|00005950| 69 66 0d 65 6e 64 20 44 | 6f 74 4d 6f 76 65 0d 0d |if.end D|otMove..|
|00005960| 6f 6e 20 44 6f 74 4d 6f | 76 65 4f 75 74 0d 20 20 |on DotMo|veOut. |
|00005970| 67 6c 6f 62 61 6c 20 6c | 6f 63 61 74 69 6f 6e 2c |global l|ocation,|
|00005980| 20 44 50 4f 53 2c 20 56 | 44 6f 74 2c 20 48 44 6f | DPOS, V|Dot, HDo|
|00005990| 74 2c 20 44 6f 74 2c 20 | 6d 53 74 61 72 74 0d 20 |t, Dot, |mStart. |
|000059a0| 20 69 66 20 6c 6f 63 61 | 74 69 6f 6e 20 3d 20 31 | if loca|tion = 1|
|000059b0| 20 74 68 65 6e 0d 20 20 | 20 20 69 66 20 74 68 65 | then. | if the|
|000059c0| 20 6d 6f 76 69 65 74 69 | 6d 65 20 6f 66 20 73 70 | movieti|me of sp|
|000059d0| 72 69 74 65 20 31 20 3e | 20 34 33 33 35 20 74 68 |rite 1 >| 4335 th|
|000059e0| 65 6e 0d 20 20 20 20 20 | 20 69 66 20 6d 53 74 61 |en. | if mSta|
|000059f0| 72 74 20 3c 20 34 33 33 | 35 20 74 68 65 6e 20 70 |rt < 433|5 then p|
|00005a00| 75 74 20 34 33 33 35 20 | 69 6e 74 6f 20 6d 53 74 |ut 4335 |into mSt|
|00005a10| 61 72 74 0d 20 20 20 20 | 20 20 70 75 74 20 44 50 |art. | put DP|
|00005a20| 4f 53 20 2b 20 31 20 69 | 6e 74 6f 20 44 50 4f 53 |OS + 1 i|nto DPOS|
|00005a30| 0d 20 20 20 20 20 20 70 | 75 74 20 56 44 6f 74 20 |. p|ut VDot |
|00005a40| 69 6e 74 6f 20 44 6f 74 | 0d 20 20 20 20 20 20 44 |into Dot|. D|
|00005a50| 6f 77 6e 44 6f 74 0d 20 | 20 20 20 20 20 70 75 74 |ownDot. | put|
|00005a60| 20 44 6f 74 20 69 6e 74 | 6f 20 56 44 6f 74 0d 20 | Dot int|o VDot. |
|00005a70| 20 20 20 20 20 70 75 74 | 20 6d 53 74 61 72 74 20 | put| mStart |
|00005a80| 2b 20 31 38 39 20 69 6e | 74 6f 20 6d 53 74 61 72 |+ 189 in|to mStar|
|00005a90| 74 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |t. en|d if. e|
|00005aa0| 6e 64 20 69 66 0d 20 20 | 69 66 20 6c 6f 63 61 74 |nd if. |if locat|
|00005ab0| 69 6f 6e 20 3d 20 32 20 | 74 68 65 6e 0d 20 20 20 |ion = 2 |then. |
|00005ac0| 20 69 66 20 74 68 65 20 | 6d 6f 76 69 65 74 69 6d | if the |movietim|
|00005ad0| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 20 3e 20 |e of spr|ite 1 > |
|00005ae0| 34 33 33 35 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |4335 the|n. |
|00005af0| 69 66 20 6d 53 74 61 72 | 74 20 3c 20 34 33 33 35 |if mStar|t < 4335|
|00005b00| 20 74 68 65 6e 20 70 75 | 74 20 34 33 33 35 20 69 | then pu|t 4335 i|
|00005b10| 6e 74 6f 20 6d 53 74 61 | 72 74 0d 20 20 20 20 20 |nto mSta|rt. |
|00005b20| 20 70 75 74 20 44 50 4f | 53 20 2b 20 31 20 69 6e | put DPO|S + 1 in|
|00005b30| 74 6f 20 44 50 4f 53 0d | 20 20 20 20 20 20 70 75 |to DPOS.| pu|
|00005b40| 74 20 48 44 6f 74 20 69 | 6e 74 6f 20 44 6f 74 0d |t HDot i|nto Dot.|
|00005b50| 20 20 20 20 20 20 55 70 | 44 6f 74 0d 20 20 20 20 | Up|Dot. |
|00005b60| 20 20 70 75 74 20 44 6f | 74 20 69 6e 74 6f 20 48 | put Do|t into H|
|00005b70| 44 6f 74 0d 20 20 20 20 | 20 20 70 75 74 20 6d 53 |Dot. | put mS|
|00005b80| 74 61 72 74 20 2b 20 31 | 38 39 20 69 6e 74 6f 20 |tart + 1|89 into |
|00005b90| 6d 53 74 61 72 74 0d 20 | 20 20 20 65 6e 64 20 69 |mStart. | end i|
|00005ba0| 66 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 69 66 20 |f. end |if. if |
|00005bb0| 6c 6f 63 61 74 69 6f 6e | 20 3d 20 33 20 74 68 65 |location| = 3 the|
|00005bc0| 6e 0d 20 20 20 20 69 66 | 20 74 68 65 20 6d 6f 76 |n. if| the mov|
|00005bd0| 69 65 74 69 6d 65 20 6f | 66 20 73 70 72 69 74 65 |ietime o|f sprite|
|00005be0| 20 31 20 3e 20 34 33 33 | 35 20 74 68 65 6e 0d 20 | 1 > 433|5 then. |
|00005bf0| 20 20 20 20 20 69 66 20 | 6d 53 74 61 72 74 20 3c | if |mStart <|
|00005c00| 20 34 33 33 35 20 74 68 | 65 6e 20 70 75 74 20 34 | 4335 th|en put 4|
|00005c10| 33 33 35 20 69 6e 74 6f | 20 6d 53 74 61 72 74 0d |335 into| mStart.|
|00005c20| 20 20 20 20 20 20 70 75 | 74 20 44 50 4f 53 20 2b | pu|t DPOS +|
|00005c30| 20 31 20 69 6e 74 6f 20 | 44 50 4f 53 0d 20 20 20 | 1 into |DPOS. |
|00005c40| 20 20 20 70 75 74 20 56 | 44 6f 74 20 69 6e 74 6f | put V|Dot into|
|00005c50| 20 44 6f 74 0d 20 20 20 | 20 20 20 55 70 44 6f 74 | Dot. | UpDot|
|00005c60| 0d 20 20 20 20 20 20 70 | 75 74 20 44 6f 74 20 69 |. p|ut Dot i|
|00005c70| 6e 74 6f 20 56 44 6f 74 | 0d 20 20 20 20 20 20 70 |nto VDot|. p|
|00005c80| 75 74 20 6d 53 74 61 72 | 74 20 2b 20 31 38 39 20 |ut mStar|t + 189 |
|00005c90| 69 6e 74 6f 20 6d 53 74 | 61 72 74 0d 20 20 20 20 |into mSt|art. |
|00005ca0| 65 6e 64 20 69 66 0d 20 | 20 65 6e 64 20 69 66 0d |end if. | end if.|
|00005cb0| 20 20 69 66 20 6c 6f 63 | 61 74 69 6f 6e 20 3d 20 | if loc|ation = |
|00005cc0| 34 20 74 68 65 6e 0d 20 | 20 20 20 69 66 20 74 68 |4 then. | if th|
|00005cd0| 65 20 6d 6f 76 69 65 74 | 69 6d 65 20 6f 66 20 73 |e moviet|ime of s|
|00005ce0| 70 72 69 74 65 20 31 20 | 3e 20 34 33 33 35 20 74 |prite 1 |> 4335 t|
|00005cf0| 68 65 6e 0d 20 20 20 20 | 20 20 69 66 20 6d 53 74 |hen. | if mSt|
|00005d00| 61 72 74 20 3c 20 34 33 | 33 35 20 74 68 65 6e 20 |art < 43|35 then |
|00005d10| 70 75 74 20 34 33 33 35 | 20 69 6e 74 6f 20 6d 53 |put 4335| into mS|
|00005d20| 74 61 72 74 0d 20 20 20 | 20 20 20 70 75 74 20 44 |tart. | put D|
|00005d30| 50 4f 53 20 2b 20 31 20 | 69 6e 74 6f 20 44 50 4f |POS + 1 |into DPO|
|00005d40| 53 0d 20 20 20 20 20 20 | 70 75 74 20 48 44 6f 74 |S. |put HDot|
|00005d50| 20 69 6e 74 6f 20 44 6f | 74 0d 20 20 20 20 20 20 | into Do|t. |
|00005d60| 44 6f 77 6e 44 6f 74 0d | 20 20 20 20 20 20 70 75 |DownDot.| pu|
|00005d70| 74 20 44 6f 74 20 69 6e | 74 6f 20 48 44 6f 74 0d |t Dot in|to HDot.|
|00005d80| 20 20 20 20 20 20 70 75 | 74 20 6d 53 74 61 72 74 | pu|t mStart|
|00005d90| 20 2b 20 31 38 39 20 69 | 6e 74 6f 20 6d 53 74 61 | + 189 i|nto mSta|
|00005da0| 72 74 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |rt. e|nd if. |
|00005db0| 65 6e 64 20 69 66 0d 20 | 20 73 65 74 20 74 68 65 |end if. | set the|
|00005dc0| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00005dd0| 31 38 20 74 6f 20 48 44 | 6f 74 0d 20 20 73 65 74 |18 to HD|ot. set|
|00005de0| 20 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 | the loc|V of spr|
|00005df0| 69 74 65 20 31 38 20 74 | 6f 20 56 44 6f 74 0d 65 |ite 18 t|o VDot.e|
|00005e00| 6e 64 20 44 6f 74 4d 6f | 76 65 4f 75 74 0d 0d 6f |nd DotMo|veOut..o|
|00005e10| 6e 20 55 70 44 6f 74 0d | 20 20 67 6c 6f 62 61 6c |n UpDot.| global|
|00005e20| 20 44 6f 74 0d 20 20 70 | 75 74 20 44 6f 74 2b 31 | Dot. p|ut Dot+1|
|00005e30| 20 69 6e 74 6f 20 44 6f | 74 0d 65 6e 64 20 55 70 | into Do|t.end Up|
|00005e40| 44 6f 74 0d 0d 6f 6e 20 | 44 6f 77 6e 44 6f 74 0d |Dot..on |DownDot.|
|00005e50| 20 20 67 6c 6f 62 61 6c | 20 44 6f 74 0d 20 20 70 | global| Dot. p|
|00005e60| 75 74 20 44 6f 74 2d 31 | 20 69 6e 74 6f 20 44 6f |ut Dot-1| into Do|
|00005e70| 74 0d 65 6e 64 20 44 6f | 77 6e 44 6f 74 0d 0d 6f |t.end Do|wnDot..o|
|00005e80| 6e 20 48 61 6c 66 4c 65 | 66 74 48 0d 20 20 67 6c |n HalfLe|ftH. gl|
|00005e90| 6f 62 61 6c 20 44 50 4f | 53 2c 20 48 44 6f 74 2c |obal DPO|S, HDot,|
|00005ea0| 20 44 6f 74 0d 20 20 70 | 75 74 20 48 44 6f 74 20 | Dot. p|ut HDot |
|00005eb0| 69 6e 74 6f 20 44 6f 74 | 0d 20 20 69 66 20 44 50 |into Dot|. if DP|
|00005ec0| 4f 53 20 3c 20 32 20 74 | 68 65 6e 0d 20 20 20 20 |OS < 2 t|hen. |
|00005ed0| 55 70 44 6f 74 0d 20 20 | 65 6c 73 65 20 69 66 20 |UpDot. |else if |
|00005ee0| 44 50 4f 53 20 3e 20 32 | 20 61 6e 64 20 44 50 4f |DPOS > 2| and DPO|
|00005ef0| 53 20 3c 20 36 20 74 68 | 65 6e 0d 20 20 20 20 55 |S < 6 th|en. U|
|00005f00| 70 44 6f 74 0d 20 20 65 | 6c 73 65 20 69 66 20 44 |pDot. e|lse if D|
|00005f10| 50 4f 53 20 3d 20 36 20 | 74 68 65 6e 0d 20 20 20 |POS = 6 |then. |
|00005f20| 20 55 70 44 6f 74 0d 20 | 20 65 6c 73 65 20 69 66 | UpDot. | else if|
|00005f30| 20 44 50 4f 53 20 3d 20 | 38 20 74 68 65 6e 0d 20 | DPOS = |8 then. |
|00005f40| 20 20 20 55 70 44 6f 74 | 0d 20 20 65 6c 73 65 20 | UpDot|. else |
|00005f50| 69 66 20 44 50 4f 53 20 | 3d 20 31 31 20 74 68 65 |if DPOS |= 11 the|
|00005f60| 6e 0d 20 20 20 20 55 70 | 44 6f 74 0d 20 20 65 6c |n. Up|Dot. el|
|00005f70| 73 65 20 69 66 20 44 50 | 4f 53 20 3d 20 31 35 20 |se if DP|OS = 15 |
|00005f80| 74 68 65 6e 0d 20 20 20 | 20 55 70 44 6f 74 0d 20 |then. | UpDot. |
|00005f90| 20 65 6e 64 20 69 66 0d | 20 20 70 75 74 20 44 6f | end if.| put Do|
|00005fa0| 74 20 69 6e 74 6f 20 48 | 44 6f 74 0d 65 6e 64 20 |t into H|Dot.end |
|00005fb0| 48 61 6c 66 4c 65 66 74 | 48 0d 0d 6f 6e 20 48 61 |HalfLeft|H..on Ha|
|00005fc0| 6c 66 4c 65 66 74 56 0d | 20 20 67 6c 6f 62 61 6c |lfLeftV.| global|
|00005fd0| 20 44 50 4f 53 2c 20 56 | 44 6f 74 2c 20 44 6f 74 | DPOS, V|Dot, Dot|
|00005fe0| 0d 20 20 70 75 74 20 56 | 44 6f 74 20 69 6e 74 6f |. put V|Dot into|
|00005ff0| 20 44 6f 74 0d 20 20 69 | 66 20 44 50 4f 53 20 3e | Dot. i|f DPOS >|
|00006000| 20 31 20 61 6e 64 20 44 | 50 4f 53 20 3c 20 32 37 | 1 and D|POS < 27|
|00006010| 20 74 68 65 6e 20 20 20 | 20 0d 20 20 20 20 44 6f | then | . Do|
|00006020| 77 6e 44 6f 74 0d 20 20 | 65 6e 64 20 69 66 0d 20 |wnDot. |end if. |
|00006030| 20 70 75 74 20 44 6f 74 | 20 69 6e 74 6f 20 56 44 | put Dot| into VD|
|00006040| 6f 74 0d 65 6e 64 20 48 | 61 6c 66 4c 65 66 74 56 |ot.end H|alfLeftV|
|00006050| 0d 0d 6f 6e 20 48 61 6c | 66 52 69 67 68 74 48 0d |..on Hal|fRightH.|
|00006060| 20 20 67 6c 6f 62 61 6c | 20 44 50 4f 53 2c 20 48 | global| DPOS, H|
|00006070| 44 6f 74 2c 20 44 6f 74 | 0d 20 20 70 75 74 20 48 |Dot, Dot|. put H|
|00006080| 44 6f 74 20 69 6e 74 6f | 20 44 6f 74 0d 20 20 69 |Dot into| Dot. i|
|00006090| 66 20 44 50 4f 53 20 3c | 20 31 37 20 74 68 65 6e |f DPOS <| 17 then|
|000060a0| 20 20 20 20 0d 20 20 20 | 20 44 6f 77 6e 44 6f 74 | . | DownDot|
|000060b0| 0d 20 20 65 6e 64 20 69 | 66 20 0d 20 20 70 75 74 |. end i|f . put|
|000060c0| 20 44 6f 74 20 69 6e 74 | 6f 20 48 44 6f 74 0d 65 | Dot int|o HDot.e|
|000060d0| 6e 64 20 48 61 6c 66 52 | 69 67 68 74 48 0d 0d 6f |nd HalfR|ightH..o|
|000060e0| 6e 20 48 61 6c 66 52 69 | 67 68 74 56 0d 20 20 67 |n HalfRi|ghtV. g|
|000060f0| 6c 6f 62 61 6c 20 44 50 | 4f 53 2c 20 56 44 6f 74 |lobal DP|OS, VDot|
|00006100| 2c 20 44 6f 74 0d 20 20 | 70 75 74 20 56 44 6f 74 |, Dot. |put VDot|
|00006110| 20 69 6e 74 6f 20 44 6f | 74 0d 20 20 69 66 20 44 | into Do|t. if D|
|00006120| 50 4f 53 20 3c 20 32 20 | 74 68 65 6e 0d 20 20 20 |POS < 2 |then. |
|00006130| 20 55 70 44 6f 74 0d 20 | 20 65 6c 73 65 20 69 66 | UpDot. | else if|
|00006140| 20 44 50 4f 53 20 3e 20 | 32 20 61 6e 64 20 44 50 | DPOS > |2 and DP|
|00006150| 4f 53 20 3c 20 36 20 74 | 68 65 6e 0d 20 20 20 20 |OS < 6 t|hen. |
|00006160| 55 70 44 6f 74 0d 20 20 | 65 6c 73 65 20 69 66 20 |UpDot. |else if |
|00006170| 44 50 4f 53 20 3d 20 36 | 20 74 68 65 6e 0d 20 20 |DPOS = 6| then. |
|00006180| 20 20 55 70 44 6f 74 0d | 20 20 65 6c 73 65 20 69 | UpDot.| else i|
|00006190| 66 20 44 50 4f 53 20 3d | 20 38 20 74 68 65 6e 0d |f DPOS =| 8 then.|
|000061a0| 20 20 20 20 55 70 44 6f | 74 0d 20 20 65 6c 73 65 | UpDo|t. else|
|000061b0| 20 69 66 20 44 50 4f 53 | 20 3d 20 31 31 20 74 68 | if DPOS| = 11 th|
|000061c0| 65 6e 0d 20 20 20 20 55 | 70 44 6f 74 0d 20 20 65 |en. U|pDot. e|
|000061d0| 6c 73 65 20 69 66 20 44 | 50 4f 53 20 3d 20 31 35 |lse if D|POS = 15|
|000061e0| 20 74 68 65 6e 0d 20 20 | 20 20 55 70 44 6f 74 0d | then. | UpDot.|
|000061f0| 20 20 65 6e 64 20 69 66 | 20 0d 20 20 70 75 74 20 | end if| . put |
|00006200| 44 6f 74 20 69 6e 74 6f | 20 56 44 6f 74 0d 65 6e |Dot into| VDot.en|
|00006210| 64 20 48 61 6c 66 52 69 | 67 68 74 56 0d 0d 6f 6e |d HalfRi|ghtV..on|
|00006220| 20 55 70 5f 48 0d 20 20 | 67 6c 6f 62 61 6c 20 44 | Up_H. |global D|
|00006230| 50 4f 53 2c 20 48 44 6f | 74 2c 20 44 6f 74 0d 20 |POS, HDo|t, Dot. |
|00006240| 20 70 75 74 20 48 44 6f | 74 20 69 6e 74 6f 20 44 | put HDo|t into D|
|00006250| 6f 74 0d 20 20 69 66 20 | 44 50 4f 53 20 3d 20 31 |ot. if |DPOS = 1|
|00006260| 20 74 68 65 6e 0d 20 20 | 20 20 55 70 44 6f 74 0d | then. | UpDot.|
|00006270| 20 20 65 6c 73 65 20 69 | 66 20 44 50 4f 53 20 3d | else i|f DPOS =|
|00006280| 20 36 20 74 68 65 6e 0d | 20 20 20 20 55 70 44 6f | 6 then.| UpDo|
|00006290| 74 0d 20 20 65 6c 73 65 | 20 69 66 20 44 50 4f 53 |t. else| if DPOS|
|000062a0| 20 3d 20 39 20 74 68 65 | 6e 0d 20 20 20 20 55 70 | = 9 the|n. Up|
|000062b0| 44 6f 74 0d 20 20 65 6c | 73 65 20 69 66 20 44 50 |Dot. el|se if DP|
|000062c0| 4f 53 20 3d 20 31 31 20 | 74 68 65 6e 0d 20 20 20 |OS = 11 |then. |
|000062d0| 20 55 70 44 6f 74 0d 20 | 20 65 6c 73 65 20 69 66 | UpDot. | else if|
|000062e0| 20 44 50 4f 53 20 3d 20 | 31 33 20 74 68 65 6e 0d | DPOS = |13 then.|
|000062f0| 20 20 20 20 55 70 44 6f | 74 0d 20 20 65 6c 73 65 | UpDo|t. else|
|00006300| 20 69 66 20 44 50 4f 53 | 20 3d 20 31 34 20 74 68 | if DPOS| = 14 th|
|00006310| 65 6e 0d 20 20 20 20 55 | 70 44 6f 74 0d 20 20 65 |en. U|pDot. e|
|00006320| 6c 73 65 20 69 66 20 44 | 50 4f 53 20 3e 20 31 35 |lse if D|POS > 15|
|00006330| 20 61 6e 64 20 44 50 4f | 53 20 3c 20 33 34 20 74 | and DPO|S < 34 t|
|00006340| 68 65 6e 0d 20 20 20 20 | 55 70 44 6f 74 0d 20 20 |hen. |UpDot. |
|00006350| 65 6e 64 20 69 66 20 0d | 20 20 70 75 74 20 44 6f |end if .| put Do|
|00006360| 74 20 69 6e 74 6f 20 48 | 44 6f 74 0d 65 6e 64 20 |t into H|Dot.end |
|00006370| 55 70 5f 48 0d 0d 6f 6e | 20 55 70 5f 48 32 0d 20 |Up_H..on| Up_H2. |
|00006380| 20 67 6c 6f 62 61 6c 20 | 44 50 4f 53 2c 20 48 44 | global |DPOS, HD|
|00006390| 6f 74 2c 20 44 6f 74 0d | 20 20 70 75 74 20 48 44 |ot, Dot.| put HD|
|000063a0| 6f 74 20 69 6e 74 6f 20 | 44 6f 74 0d 20 20 69 66 |ot into |Dot. if|
|000063b0| 20 44 50 4f 53 20 3c 20 | 31 37 20 74 68 65 6e 0d | DPOS < |17 then.|
|000063c0| 20 20 20 20 55 70 44 6f | 74 0d 20 20 65 6c 73 65 | UpDo|t. else|
|000063d0| 20 69 66 20 44 50 4f 53 | 20 3e 20 31 37 20 61 6e | if DPOS| > 17 an|
|000063e0| 64 20 44 50 4f 53 20 3c | 20 32 30 20 74 68 65 6e |d DPOS <| 20 then|
|000063f0| 0d 20 20 20 20 55 70 44 | 6f 74 0d 20 20 65 6c 73 |. UpD|ot. els|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.